Komputerku

program ulang;
uses wincrt;
var i,j,n: integer;
begin
write ('masukkan nilai n: ');
read (n);
for i:=n downto 1 do
begin
for j:=n downto n-i+1 do
begin
write (j);
end;
writeln;
end;
end.