Программа нахождения наибольшего общего делителя трех чисел:

program GreatestCommonDivisor;
var
a, b, c, gcdAB, gcdABC: integer;
function GCD(x, y: integer): integer;
var
r: integer;
begin
while y <> 0 do
begin
r := x mod y;
x := y;
y := r;
end;
GCD := x;
end;
begin
writeln('Введите три числа:');
readln(a, b, c);
gcdAB := GCD(a, b);
gcdABC := GCD(gcdAB, c);
writeln('Наибольший общий делитель чисел ', a, ', ', b, ' и ', c, ' равен ', gcdABC);
end.

Для использования данной программы вам необходимо скопировать код, вставить его в среду программирования Pascal (например, Lazarus) и запустить программу. После запуска программа попросит вас ввести три числа, а затем выведет наибольший общий делитель этих чисел.