For Do1

uses wincrt;
var i,j,n:integer;
begin
write ('masukkan angka: ');
readln (n);
for j:=n downto 1 do
begin
writeln (' ');
for i:=j downto 1 do
write (5:3) ;
writeln;
end;
readln;
end.