Masukkan kode berikut:
program segitiga1;
uses crt;
const max=5;
var i,j:integer;
begin
for i:=1 to max do begin
for j:=1 to i do begin
write('*');
end;
writeln;
end;
end.
Tekan Ctrl+F9 maka program akan berjalan.
*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.
