program GCD;
var
a, b, temp: integer;
function findGCD(a, b: integer): integer;
begin
while b <> 0 do
begin
temp := b;
b := a mod b;
a := temp;
end;
findGCD := a;
end;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
writeln('Наибольший общий делитель: ', findGCD(a, b));
end.

Программа запрашивает у пользователя два целых числа, вычисляет их наибольший общий делитель с помощью алгоритма Евклида и выводит результат.