Pascal - Contoh Program Perulangan

Program Perulangan;
Uses Crt;
Var
   i : integer;
Begin
     ClrScr;
     For i:=1 to 10 do
     Writeln('Halo');
     Readln;
End.