Проверить являются ли два числа a и b взаимно простыми

var a, b: integer; begin write ('a='); readln (a); write ('b='); readln (b); while (a <> 0) and (b <> 0) do if a >=b then a: =a mod b else b: =b mod a; a: =a+b; if a=1 then writeln ('Числа являются взаимнопростыми') else writeln ('Числа не являются взаимнопростыми') end.