Дано натуральное число. записать число, записанное теми же цифрами, но в обратном порядке. подсказка последовательно отделяемое каждую цифру, потом ее значение прибавляем к переменной s, умноженной на 10.

Pascal ABC

program perevod;
uses crt;
var 
 a,i,error:integer;
s,d:string;
begin
 write('Введите число: ');
 readln(a);
 str(a,s);
 for i:=1 to length(s) do d:=s[i]+d;
 val (d,a,error);
 write('ответ: ',a);
end.