Нахождение НОК двух чисел, оформите под вашу задачу var x, y: integer; function NOD(x, y: integer): integer; begin if x<>0 then NOD:=NOD(y mod x, x) else NOD:=y; end; function NOK(x, y: integer): integer; begin NOK:=(x div NOD(x,y))*y; end; begin read(x, y); write(NOK(x, y)); end.
var
x, y: integer;
function NOD(x, y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x, x)
else NOD:=y;
end;
function NOK(x, y: integer): integer;
begin
NOK:=(x div NOD(x,y))*y;
end;
begin
read(x, y);
write(NOK(x, y));
end.