
Дано трёхзначное число. Напишите в паскаль программу, которая определяет:
Является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Var
a:integer;
begin
writeln(a ?);
readln(a);
if (a mod 10)=(a div 100) then
writeln(Yes)
else
writeln(N);
end.
Оцени ответ