Ответ:

var

 a, b, c: integer;

begin

 Writeln('Введите два числа');

 Read(a, b);

 repeat

   if a > b then

     a := a mod b

   else b := b mod a

 until (a = 0) or (b = 0);

 c := a + b;

 Writeln('Наибольший общий делитель: ', c);

end.