Вот это скопируйте и вставьте.
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.
Вроде как оно,правда на русском,но думаю учитель не столь строгий :)
1)Емеля щуку поймал 2)щука ему человеческим голосом говорит 3)щука говорит емеле волшебные слова по щучему велению по моему хотению 4)Емеля пробует это на вёдрах 5)они оживают набирают воды и идут домой 6)приходят ставятся на стол,а коромысло на крючок.