Составить программу для нахождения наибольшего общего делителя двух натуральных чисел M и  N.

Pascalvar a,b,i,c,d:integer;beginwriteln ('Введите два натуральных числа');readln (a,b);if (a>0) and (b>0) then beginif (a=b) then writeln ('НОД = ',a) else beginif (a>b) then c:=a else c:=b;for i:=1 to c do beginif (a mod i=0) and (b mod i=0) then d:=i;end;writeln ('НОД = ',d);end;end else writeln ('Неверный ввод');end.