Дано число N. Вывести число, которое получится при записи числа N справа налево. В Паскале

program spravonalevo / / Название программы

var

i: integer; / / Создаём целочисленную переменную i

str, str2: string; / / Создаём 2 строковые переменные

begin

readln (str); / / Читаем строку

str2:=str;

i:=1;

while i < = length (str) do / / в цикле от 1 до конца строчки проходимся и меняем символы

begin

str2[length (str) + 1-i]:=str[i]; / / первый символ строки str присваивается последнему в строке str2, второй символ строки str присваивается предпоследнему строки str2 и т. д.

i:=i+1;

end;

println (str2);

end.