{ Составить программу, проверяющую: является ли слово "перевертышем" }
{ Например, "шалаш", "казак" - перевертыш }
var s1,s2:string;
i:integer;
begin
readln(s1); s2:='';
for i:=length(s1) downto 1 do begin
s2:=s2+s1[i];
end;
if s1=s2 then writeln(s1, ' - перевертыш')
else writeln(s1, ' - не перевертыш');
end.
Красноярский краевой Дворец пионеров, (c)2006 - 2018, ICQ: 151483