Дано натуральное число А. Вывести число, полученное из А путем ...

Ирина

uses crt;
var
   s:array[1..100] of integer;
    a,i,j,b:integer;
begin
    clrscr;
  readln(a);
  b:=a;
  j:=0;
 
  while b0 do
    begin
         j:=j+1;
         s[j]:=b mod 10;
         b:=b div 10;
    end;
    for i:=1 to j do
        write(s[i]);
    writeln;
 
 
    readln;
end.