НОДНОД

Представляю вашему вниманию еще одну часто необходимую практическую арифметическую задачу — нахождение наибольшего общего делителя двух чисел (НОД). Код очень простой и не нуждается в объяснениях.

var
  A, B: integer;

begin
  writeln('Введите целые неотрицательные числа A и B:');
  readln(A, B);
  write('Результат: НОД(', A, ', ', B, ') = ');
  { Сначала находим НОД(А,В): }
  while A <> B do
    if A > B then A := A - B
    else B := B - A;
  { Выводим результат: }
  writeln(' ', A);
  readln
end.

$1 $2