Cod sursa(job #181317)

Utilizator madmanjonesJones the one madmanjones Data 18 aprilie 2008 11:29:23
Problema Traseu Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
var n,p,i:integer;
begin
read(n);
while n<>0 do begin
              p:=n mod 10;
              n:=n div 10;
              for i:=1 to p do write(p);
              writeln
              end;
              end.