Информатика

Марат

1 февраля, 11:26

Где ошибка? Является ли заданное натуральное четырехзначное число палиндромом? Палиндромами называются числа, которые читаются одинаково слева-направо и справа-налево.

Напрмер, 8998, 3333.

Вводится целое число N (999 < N <10 000).

Вывести слово YES, если N является палиндромом и NO, если нет.

Var

N, a, b, c, d: Integer;

begin

Writeln ('Vvedite chislo') ;

ReadLn (N) ;

a:=N mod 10;

b:=N mod 100 div 10;

c:=N mod 1000 div 100;

d:=N div 1000;

if (a=d) and (b=c) then write ('YES')

else ('NO') ;

end.