Function nod(a,b:longint):longint; begin
if a=b then
nod:=a
else if a>b then
nod:=(a,b-a)
end;
function nok (a,b:longint):longint;
begin
nok:=(a*b)div nod(a,b);
end;
begin
while TRUE do begin
write('A=');
readln(a);
if a<1 then
break;
write('B=');
if b<1 then
break;
writeln('NOW:',nod(a,b),';NOK:',nok(a,b));
end
end.
ЧТО ТУТ НЕ ТАК
