Berikut adalah Source Code Test Pemahaman Looping Paling Sederhana dalam Bahasa Pascal.

Data arsip dari Die Coding, silakan digunakan dan diubah sesuka hati, semoga bermanfaat.

program testLooping;
uses crt;

var
	i, n : integer;

begin
	clrscr;
	writeln (' ------------------------------------------ ');
	writeln ('|                                          |');
	writeln ('|           source: diecoding.com          |');
	writeln ('|                                          |');
	writeln (' ------------------------------------------ ');
	writeln;
	write ('n : '); readln (n);
	for i := 1 to n do
		write (i, ' ');
	readkey;
end.