Тролль
я по другому немного написала,ток у меня не идет,она скомпилировалась,числа вводятся,но ответ не считается,ставит курсор на процедуру для НОК(я там выделила))че не правильно? :g:
program nok3;
procedure NOD1(A,B,C:integer;var NOD,D:integer);
begin
while (a<>0) and (b<>0) do
if a>=b then a:=a mod b
else b:= b mod a;
D:=a+b;
while (D<>0) and (C<>0) do
if D>=C then D:=D mod C
else C:=C mod D;
NOD:=D+C;
end;
procedure NOK1(A,B,C,NOD,D:integer;var NOK,K:integer);
begin
K:=a*b div D;
NOK:=K*C div NOD
end;
Var NOD,NOK,D,K,A,B,C:integer;
begin
write('vvedite tri 4isla:');
readln(A,B,C);
NOD1(A,B,C,NOD,D);
writeln(NOD);
NOK1(A,B,C,D,NOK,K,NOD);
writeln(NOK);
end.