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.