Дано натуральное двузначное число. составить программу определения, является ли сумма его цифр двузначным числом. если нет, то через сколько чисел встретиться первое двузначное число, удовлетворяющее этому условию.на паскале

var

x,x1: integer;

begin

readln(x);

if (x div 10 + x mod 10 > = 10) then writeln ('является')

else begin   x1: =x; while (x1 div 10 + x1 mod 10 < 10) do x1: =x1+1; end; a

if (x div 10 + x mod 10 < 10) then writeln('нужно увеличить на ',x1-x);

end.

Program p1; var a,b: integer; begin writeln ('введите 2 числа'); readln (a,b); if a=b then writeln ('числа одинаковые') else if a> b then begin writeln ('наибольшее число ',a); writeln ('наименьшее число ',b); end else begin writeln ('наибольшее число ',b); writeln ('наиментшее число 10 ',a); end; end. program p2; var a,b,c,d: integer; begin writeln ('введите 4 числа'); readln (a,b,c,d); if a< b then a: =b; if c< d then c: =d; if a< c then a: =c; writeln ('наибольшее число ',a); end. program p3; var a,b,v: integer; begin writeln ('введите возрасты людей: '); write ('антона - '); readln (a); write ('бориса - '); readln (b); write ('виктора - '); readln (v); if (a=b) and (a=v) then writeln ('все люди одного возраста'); if (a=b) and (a> v) then writeln ('антон и борис старше виктора'); if (a=b) and (a< v) then writeln ('виктор старше всех') else if (v> a) and (v> b) then writeln ('виктор старше всех'); if (b=v) and (b> a) then writeln ('борис и виктор старше антона'); if (b=v) and (b< a) then writeln ('антон старше всех') else if (a> v) and (a> b) then writeln ('антон старше всех'); if (a=v) and (a> b) then writeln ('антон и виктор старше бориса'); if (a=v) and (a< b) then writeln ('борис старше всех') else if (b> v) and (b> a) then writeln ('борис старше всех'); end.