Website and domain for sale:

Pascal. 2 natural numbers are entered. To remove their NOC. Please count please!

var a, b, nok: integer; begin readln (a, b); nok: = (a*b); while a< & gt; b do begin if a> b then a: = a-b else b: = b-a; end; nok: = nok div a; write (nok); end.
Answer add