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.