Пример процедуры программиста — Pascal(Паскаль)

program procline;

{ Процедура вывода строки из 30 черточек }
Procedure Line30;
     var
          i:integer;
     begin
          for i:=1 to 30 do write('-');
          writeln;
     end;


{ основная программа }
var
     x:integer;
     y:real;
begin
     writeln('Таблица логарифмов чисел от 1 до 10');
     Line30;     { нарисовать линию }
     for x:=1 to 10 do begin
          y:=ln(x);
          { функция вычисления логарифма x }
          writeln(x:3,y:8:3);
     end;
     Line30;     { нарисовать линию }
end.

program tabsqrt;
var
     i:integer;

{ процедура программиста }
Procedure Line(n: integer; c: char);
     var
          i:integer;
     begin
          for i:=1 to n do write(c);
          writeln;
     end;

begin
     writeln('Таблица квадратных корней');
     line(14,'=');
     writeln('Число  Корень');
     line(14,'=');
     for i:=1 to 5 do
          begin
               writeln(i:5,'  ',sqrt(i):6:3);
               line(14,'-');
          end;

 end.