program pascal

berikut coding pengulangan dengan for

program cetak_banyak_halo;
uses crt;
var
 k: integer;
begin
 clrscr;
 writeln('       Program Algoritma Cetak Banyak HALO dengan For');
 writeln(   '--------------------------------------------------------');
 writeln;
 for k := 1 to 5 do
  begin
  writeln('Hello world');
end;
readln;
end.


hasilnya seperti dibawah ini:

Semoga bermanfaat :)