Помогите решить ** PascalABC.NET в синтаксисе Pascal ABC. Даны натуральные числа m и n....

Question

Помогите решить на PascalABC.NET в синтаксисе Pascal ABC.

Даны натуральные числа m и n. Используя алгоритм Евклида, найти наиболь-ший общий делитель чисел m и n. (Алгоритм Евклида: большее из двух чисел де-лят на меньшее, затем меньшее на первый остаток, далее первый остаток – на второй, второй – на третий и так до тех пор, пока в остатке не получится нуль; тогда последний делитель является НОД данных чисел.)

Answer 1

Var
  m,n,t:integer;
begin
  Write('Введите пару натуральных чисел: '); Read(m,n);
  while n<>0 do begin
    m:=m mod n;
    t:=m; m:=n; n:=t
    end;
  Writeln('НОД=',m)
end.

Примеры
Введите пару натуральных чисел: 640 1820
НОД=20

Введите пару натуральных чисел: 1820 640
НОД=20