Напишите программу (в паскале авс), которая находит НОК

Для решения этой задачи воспользуемся формулой: а*б=НОД (а, б)*НОК (а, б) var a,b: longint; function nod (a,b: longint): longint; beginif a=0 thennod: =b elseif b=0 thennod: =a elseif a>b thennod: =nod (a mod b,b) elsenod: =nod (a,b mod a); end; Beginread (a,b); writeln (a*b) div nod (a,b); End.