Как слово "КОТ" превратить в "ТОК" в программе Паскаль?

Question

Как слово "КОТ" превратить в "ТОК" в программе Паскаль?

Answer 1

Program p1;
var s,s1:string;
i,n:integer;
begin
s:='КОТ';
n:=length(s);
writeln(s);
for i:=1 to n do s1:=s1+copy(s,n-i+1,1);
writeln(s1);
end.

Comments

Гениально! Большое спасибо!