algoritmas

sveiki, kaip uzrasyti pascakyje algoritma, kuris duota skaiciu uzraso atbulai?

program Atbulas_skaicius;
var skaitmuo: integer;
   skaicius, atbulas: longint;
begin
 Write('Iveskite skaiciu: ');
 ReadLn(skaicius);
 atbulas := 0;
 while (skaicius > 0) do
   begin
       skaitmuo := skaicius mod 10;
       atbulas := atbulas * 10 + skaitmuo;
       skaicius := skaicius div 10;

   end;
 Write('Atbulas skaicius: ');
 WriteLn(atbulas);
 ReadLn();
end.

Dekui.

program Atbulas_skaicius;
var skaitmuo: integer;
   skaicius, atbulas: longint;
begin
 Write('Iveskite skaiciu: ');
 ReadLn(skaicius);
 atbulas := 0;
 while (skaicius > 0) do
   begin
       skaitmuo := skaicius mod 10;
       atbulas := atbulas * 10 + skaitmuo;
       skaicius := skaicius div 10;

   end;
 Write('Atbulas skaicius: ');
 WriteLn(atbulas);
 ReadLn();
end.