Написать программу, определяющую (отвечающею на вопрос) - больше ли числа х сумма цифр введённого числа

var a,b,x,s:integer;beginwrite('a = ');readln(a);write('x = ');readln(x);b:=a;s:=0;while b>0 do begin s:=s+b mod 10; b:=b div 10; end;writeln('s = ',s);if s>x then writeln('Сумма цифр больше ',x) else writeln('Сумма цифр не больше ',x);end.Пример:a = 31854x = 15s = 21 Сумма цифр больше 15