Процедура в паскале!

[wrmarw]

помогите, пожалуйста!!!

Написать программу нахождения наименьшего общего кратного (НОК) четырех заданных чисел, используя процедуру.

Программа с функцией у меня есть, теперь нужно написать с процедурой, не знаю, как!
Вот с функцией:

program alfa;
uses crt;
var a, b, c, d, rez: integer;
function NOK (k, t: integer): integer;
var z: integer;
begin
if k>t then z:=k
else z:=t;
while not ((z mod k=0) and (z mod t=0)) do
z:=z+1;
NOK:=z;
end;
begin
clrscr;
writeln ('Задайте 4 числа:');
readln (a, b, c, d);
rez:=NOK (NOK(NOK(a, b), c), d);
writeln ('Результат=');
readkey;
end.

Помогите кто может!!!

[Google2010]

function NOK(a,b:integer):real;
function nod(x,y:integer):real;
var r:integer;
begin
repeat r:=x mod y;
x:=y; y:=r; until y=0;
nod:=x; end;  //NOD
var i,j,rez:real;
begin rez:=(a*b)/nod(a,b);
nok:=rez; end;

procedure Nok4(a,b,c,d:real;var n:real);
begin
n:=Nok(Nok(a,b),Nok(c,d));
writeln(n);
end;

[wrmarw]

огромное спасибо, конечно, но как к процедуре обращаться потом?