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

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.
 

Var s:string;
i:integer;
begin
writeln('Vvedite slovo');
readln(s);
for i:=1 to length(s) do
if s[i]<>s[length(s)+1-i] then break
else if i=length(s) then writeln('da');
if i<>length(s) then writeln('net');
end.