program LAb_14;
uses crt;
var a,b,c:0..9;
z:integer;
procedure vvod(a,b,c:byte);
Var i:byte;
begin
read(a,b,c);end;
procedure nok(a,b,c:byte;var z:integer);
var i,x:byte;
begin
if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;
x:=z;
end;
begin
clrscr;
writeln('Введите 3 натуральных числа');
vvod(a,b,c);
writeln('Наименьшее общее кратное 3 чисел=');
nok(a,b,c,z);
readln;
end.