С клавиатуры вводится число и надо вывести это число наоборот паскаль.

var s: string;    i: integer; begin      writeln('Введите число');       readln(s);       for i:=length(s) downto 1 do       write(s[i]); end.