Question

Ввести любое 3-х значное число,а вывести его в обратном порядке.Паскаль.
Помогите Пожалуйста)

Answer 1

var a:integer;
begin
readln(a);
while a<>0 do begin
write(a mod 10);
a:=a div 10;
end;
end.