program pola angka

program polaangka;
uses
crt;
var
inp,i,a,t : integer;
begin
clrscr;
readln (inp);
t:=inp;
for i:=0 to inp do
begin
write(i,':');
for a:=0 to (t-i) do
begin
write(a);
end;
writeln;
end;
readkey;
end.