Используя функцию, составить программу

[Васильева Зинаида]

Найти НОК четырех заданный натуральных чисел.

[GetMax]

Function Nok(a,b,c,d:Byte):Byte;
Var
  i,krat:Byte;
Begin
   For i:=1 to 255 do
   If (A mod i = 0) and (B mod i = 0) and (C mod i = 0) and (D mod i = 0) then
   Begin
      Krat:=i
   End;
   Nok:=Krat
End.