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

[wrmarw]

помогите написать программу с процедурой! (ничего не изменяя)!!!

program one;
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.

cрочно нужно!! прямо очень!! судьба, можно сказать, решается.............. э-х-х-х-х-х-х......

[fbus]

вместо program one напиши procedure proc1;

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=93324
А чем тя эта то неустраивает.

[Hacker19_90]

Тебе в смысле функцию на процедуру поменять??

[wrmarw]

да-да, функцию на процедуру поменять! а как??? там ещё как-то нужно обращаться к процедуре потом, ну я как ни делал, у меня цикл зацикливается. короче, кошмар полный...

[wrmarw]

вроде бы все просто: ничего не меняя, изменить функцию на процедуру. но, поверьте на слово, я мучался часа 4, и ничего... тупица (бьет себя по голове)!!!