Составьте программу нахождения наименьшего общего кратного

1234567891011uses crt; var a,b,d: word; beginclrscr; write ('a='); readln (a); write ('b='); readln (b); while a<>b doif a>b then a: =a-b else b: =b-a; writeln ('NOD (a,b)=',a); readlnend. Program Example_11; Var x, y: Integer; BeginWriteln ('Введите два числа'); Readln (x,y); {вводим два целых числа}If x>y Then x: =x Mod yElse y: =y Mod x; Until (x=0) Or (y=0); {до тех пор, пока одно из чисел не станет равно нулю}Writeln ('НОД=', x+y); {вывод НОД — без условного оператора, так как одно из чисел обязательно равно нулю}Readln; End.