uses crt;
var z: char;
    vstup:string;
{procedury}
procedure pozpatku(s:string);
var i:integer;
begin
     for i:=length(s) downto 1 do
         write(s[i]);
end;

{Telo programu}
begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
begin
     write('Zadej text, ktery mam prepsat po zadu: '); readln(vstup);
     pozpatku(vstup);
end;
writeln;
writeln('-----------------------------------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.