Решить на языке Pascal: Даны два натуральных числа. Верно ли, что они взаимнопростые?

Program Program1; Vara,b: integer; beginwrite ('Введите первое число: '); readln (a); write ('Введите второе число: '); readln (b); while a<>b doif a>b then a: =a-b else b: =b-a; if a=1 then writeln ('Числа взаимно просты') else writeln ('Числа не взаимно просты'); end.