Дано 4-х значное число. Определить, что больше само число или его перевёртыш.

program zz1;

var a, k, s:integer; / / задаем переменные целого типа

begin

write (' введите заданное четырехзначное число '); / / вводим число с клавиатуры

read (k);

a:=k mod 10; k:=k div 10; / / получаем первую цифру перевертыша

while k0 do / / переворачиваем число

begin

s:=k mod 10; / / получаем последнюю цифру

k:=k div 10; / / отбрасываем ее из числа

a:=a*10 + s; / / формируем новое число

end;

if k > s / / проверяем, что больше само число или его перевертыш

then writeln (' само число больше ') else writeln (' перевертыш больше '); / / выводим ответ

end.