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

Ответы:

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.