Найдите наибольший общий делитель двух чисел. Или для цикла (пока), или для цикла (до) в паскале.

Var a, b, answer: integer;
function gcd(m, n: integer): integer;   
 var modulo: integer;   
begin       
     modulo := m mod n;       
if modulo = 0 then            gcd := n       
      else            gcd := gcd (n, modulo)    end;
begin   
         write(Введите 2 числа: );    readln(a, b);
    answer := gcd(a, b);   
writeln(Наибольший общий делитель: , answer);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.