Berikut adalah Source Code Menghitung Luas Segi Empat dalam Bahasa Pascal menggunakan Procedure.

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

program programBelajarLuasSegiEmpat; // judul program
uses crt;

// variabel
var
	x, y, L: real;

// #pause
procedure pause;
begin
	writeln;writeln;writeln;
	write('Tekan sembarang tombol untuk melanjutkan...');
	readkey;
end;

// #luasPersegi
procedure luasPersegi;
begin
	L := x*x;
	writeln ('Luas persegi dengan panjang sisi ', x:0:4,
		' adalah ', L:0:4
	);
end;

// Main Program
begin
	clrscr;
	writeln (' ------------------------------------------ ');
	writeln ('|                                          |');
	writeln ('|           source: diecoding.com          |');
	writeln ('|                                          |');
	writeln (' ------------------------------------------ ');
	writeln;
	write ('Masukan panjang (cm) : '); readln (x);
	write ('Masukan lebar (cm) : '); readln (y);
	writeln ('Luas: ', x*y, ' cm persegi');
	luasPersegi;
	pause;
end.