Помогите написать программу на паскале :)
Составить программу, проверяющую, являются ли данные три числа взаимно простыми. Использовать подпрограмму.

Числа являются взаимно простыми, если их наибольший общий делитель равен 1. Используя это свойство, напишем программу:var  a, b, c: integer;{НОД двух чисед}function gcd(a, b: integer): integer;var t: integer;begin  while b > 0 do  begin    t := b;    b := a mod b;    a := t;  end;  gcd := a;end;{Проверка трех чисел на взаимную простоту}function isCoprime(a, b, c: integer): boolean;begin  isCoprime := gcd(gcd(a, b), c) = 1;end;begin  read(a, b, c);  if isCoprime(a, b, c) then write('Числа взаимно простые')                        else write('Числа не являются взаимно простыми');end.