Question

Дана строка. Вывести ее на экран по одному символу в обратном порядке

Answer 1

program xxx;
uses crt;
var st:string
i,,j:integer;
BEGIN
readln(st);
j:=length(st);
for i:=j-1 downto 0 do
write(st[i]);
END.