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

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