нахождения наименьшего общего кратного 4 заданных чисел, используя процедуру

[wrmarw]

Помогите, пожалуйста! Очень-очень срочно!

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

я уже не знаю, что делать. хоть вешайся иди! ну, кто-нибудь! помогите, пожалуйста!!!!

[vedro-compota]

какие у тебя идеи? выложи код ))

[wrmarw]

идеи у меня вот какие (точно неверно!!!):

program a;
uses crt;
var a, b, c, d, rez: integer;
procedure nok (k, t: 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);
nok(nok(nok(nok(a, b), c), d);
writeln ('результат', rez);
readkey;
end.

[wrmarw]

исправьте, плиз-з-з-з-з-з!!! точно вкдь неправильно всё!!!

[wrmarw]

а-у-у-у-у, ну где вы все?

[eoln]

Поиск по форуму дал бы ответ уже давно.

function NOD(a, b: integer): integer;//наибольший общий делитель
begin
  if a = 0 then NOD := b
  else NOD := NOD(b mod a, a)
end;

function NOK(a, b: integer): integer;//наименьшее общее кратное
begin
    NOK := (a div NOD(a, b)) * b;
end;

var
  a, b, c, d: integer;
begin
  writeln ('напишите 4 числа');
  readln (a, b, c, d);;
  writeln ('результат ', nok(nok(nok(a, b), c), d));
  readln;
end.

[wrmarw]

ну и где здесь процедура?????????????? или я уже тю-тю совсем????

[wrmarw]

ну и где здесь процедура?????????????? или я уже тю-тю совсем????

[eoln]

Функция - частный случай процедуры. Если нужно именно procedure, то включи мыслю и поменяй result функции на параметр-переменную для procedure.

[wrmarw]

вот именно! как оно меняется, я не знать!!!!