For.... to... do...

Dan berikut ini contoh program PASCAL yang meminta masukan nama dan menuliskannya kembali di layar sebanyak seratus kali:

program TulisNama;
uses wincrt;
var
  ANama: String; { Deklarasi variabel Name sebagai string }
  AUlang: integer; { variabel yang digunakan untuk perulangan }
begin
  Write('Masukkan nama anda: ');
  Readln(ANama); { Readln akan membaca masukan yang dientrikan oleh pengguna }
  for AUlang := 1 to 100 do
    Writeln('Halo ', ANama)
end.