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

[wrmarw]

помогите это написать с процедурой!!!

program f;
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
writeln ('zadayte 4 chisla');
readln (a, b, c, d);
rez:=nok (nok(nok(a, b), C), d);
writeln ('rezultat=', rez);
end.

ПОЖАЛУЙСТА

[Rusl92]

program f;
var a, b, c, d, rez,nok1,nok2: integer;
procedure NOK (k, t:integer;var r: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;
r:=z;
end;

begin
writeln ('zadayte 4 chisla');
readln (a, b, c, d);
nok(a,b,nok1);
nok(nok1,C,nok2);
nok (nok2,d,rez);
writeln ('rezultat=', rez);
end.

Удачи!)

[wrmarw]

СПАСИБО!!!!!!!!!!!!!!

[Rusl92]

да не за что, обращайся
395359808

[wrmarw]

ну вот, поблагодари называется! программка-то твоя не работает!!! эх, ну совсем не работает! результат не вычисляет...

[wrmarw]

P. S. Я тебя в аське добавила, ок? ))

[wrmarw]

что ж мне с НОК делать-то...

[Hacker19_90]

Ты зря прога работает!

[ROMA2PVT]

Да всё чётко работает.

[wrmarw]

ну, не знаю... может быть, у меня что-то не так или я что-то не так делаю.