var
a : integer;
d1, d2, s : integer;
begin
write('введите двузначное число: ');
readln(a);
writeln('число: ', a);
if (a < 100) and (a > 9) then begin
d1 := a div 10;
d2 := a mod 10;
if d1 < d2 then writeln(d1, ' < ', d2, ' вторая цифра больше')
else if d1 > d2 then writeln(d1, ' > ', d2, ' первая цифра больше')
else writeln(d1, ' = ', d2, ' цифры равны');
s := d1+d2;
write('сумма цифр ', d1, '+', d2, '=', s);
if s < 10 then write(' однозначное, ') else write(' двузначное, ');
if s mod 2 = 0 then write('четное ') else write('не четное ');
writeln('число');
end
else writeln('это не двузначное число');
end.