Задание 1. Даны два числа a и b, не равные нулю одновременно. НайтиНОК(a,b) – наименьшее общее кратное.

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.