3. дано двухзначное число х. определите, какая цифра этого числа больше: первая или последняя

Вот это скопируйте и вставьте.

program chdast;

var a : integer;

begin

write('Введите двузначное число');

read(A);

if (a mod 10)=(a div 10) then writeln('цифры равны по значению');

if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');

if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );

end.