سورس پروژه مغلوب عدد در پاسكال

کد PHP:
uses wincrt;

var

n:integer;

begin

readln
(n);

while 
n>do

begin

write
(n mod 10);

n:=n div 10

end
;

end