kode program segitiga_angka

Uses crt;

Var a,b,c,d : byte;

Begin

Clrscr;

For a:= 1 to 6 do

Begin

For b:=6 downto a do

Begin

Write(‘ ‘);

End;

D :=a;

For c :=1 to a do

Begin

Write(d);

D:=d-1;

End;

Writeln;

End;

Readln;

End.

outputnya : lihat sendiri yach