Процедура - это подпрограмма, предназначенная для решения подзадачи, необязательно связанной с вычислением значений. Процедуры можно использовать для ввода или вывода данных структурированных типов, вычисления нескольких значений, преобразования данных и т.п.
Заголовок процедуры:
Идентификатор после ключевого слова procedure - имя процедуры.
Пример 1. Описание процедуры для решения квадратного уравнения :
Рrocedure sqr_equation(a,b,c: real; var x1,x2: real; var flag:boolean);
{a, b, c - исходные данные (коэффициенты квадратного уравнения), параметры-значения; flag - параметр для записи: true - есть корни, false - нет корней; x1 и x2 - параметры-переменные для записи корней}
var d:real; { дискриминант}
begin
d:= b*b-4*a*c;
flag:= d>=0
if d>0 then
begin
d:= sqrt(d);
x1:= (-b+d)/(2*a); x2:= (-b-d)/(2*a)
end
else if abs(d)<1E-10 then
begin
x1:= -b/(2*a); x2:= x1
end
end; {Конец описания процедуры.}