Дано целое положительное трехзначное число.Напишите программу, позволяющую определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. Например: 123->321.

ну это через строковые массиввы

через числа там по другому немного

var a,b,c:integer; begin writeln('vvedi '); readln(a); while a<>0 do begin b:=a mod 10; a:=a div 10; write(b); end; writeln('');end.

это через числа

var a,b:integer;d:string;  begin    writeln('введите число');    readln(b);    Str (b, d);      for a:=length(d) downto 1 do begin      write(d[a]);    end;  writeln('');end.