procedure όνομα; begin εντολή; εντολή; ... end;
program PrintSquare;
var
	lines : integer;
procedure SquareEnd;
begin
	writeln('********')
end;
procedure SquareMiddle;
begin
	writeln('*      *')
end;
begin
	SquareEnd;
	lines := 1;
	while lines < 5 do
	begin
		SquareMiddle;
		lines := lines + 1
	end;
	SquareEnd
end.