Объяснение:
Var a,b,nod:integer;
Begin
write('введите a,b: ');readln(a,b);
While a<>b do
if a>b then a:=a-b
else b:=b-a;
Nod:=a;
writeln('HOK = ',(a*b) div nod);
readln
End.
