{* Палиндром *}

Unit VET_7;
Interface
Implementation
Begin
 writeln('Дано трехзначное число, определить является ли оно палиндромом');
End.

Program vet_7;

Uses vet_7.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  n : integer;
  a : integer;
  b : integer;
  c : integer;
Begin
  writeln('Vvedite 3 - ex znachnoe chislo');
  readln(n);
  a := n Div 100;
  b := (n Mod 100) Div 10;
  c := n Mod 10;
  If a = c Then
    writeln('Eto palindrom')
  Else writeln('Eto ne palindrom');
    readkey; {* Ждем нажатия любой клавиши *}
End.