[Amin_Mansouri]

سورس مغلوب عدد

کد:

uses wincrt;

var

n:integer;

begin

readln(n);

while n>0 do

begin

write(n mod 10);

n:=n div 10

end;

end.