Задача. Проверить, является ли введённое слово перевёртышем.

что такое N ?

спс

Var s:string; i,j,n,m,k:longint;begin readln(s); j:=length(s); for i:=1 to length(s) div 2 do begin  if s[i]<>s[j] then  begin  wrtieln('Слово не является перевертышем');  halt;  end; dec(j);end;writeln(' Слово является перевертышем ');end.