Пример программы с использованием процедуры без параметров

Program Sin_Cos;
uses
  WinCrt;
var
  h,a: real; (* Глобальные переменные *)
procedure Sinus;
  var
    i: integer; (* Локальная переменная *)
  begin
    writeln (' Синусы');
    writeln;
    for i:=0 to 10 do
    writeln(a+i*h:8:3,sin(a+i*h):12:7);
    writeln;
  end;
procedure Cosinus;
  var
    i: integer; (* Локальная переменная *)
  begin
    writeln (' Косинусы');
   writeln;
    for i:=0 to 10 do
    writeln(a+I*h:8:3,cos(a+i*h):12:7);
    writeln;
  end;
begin
  writeln('Нач.значение аргумента и шаг?');
  read(a,h);
  Sinus; (*Вызов процедуры*)
  Cosinus; (*Вызов процедуры*)
end.

Пояснения

Структура программы
program
Uses
var
Правила записи имен
Integer
real
procedure
Локальные переменные
Глобальные переменные
writeln
for...do...
Арифметические выражения
Комментарий
begin
read
Вызов процедуры
end