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

Да хоть трёх:

A = 17
B = 85
C = 1751
НОД = 17

на Pascal

if a>b then min:=a else min:=b;
for i:=min downto 1 do
if (a mod i = 0) and (b mod i = 0) then break;
writeln('НОД = ',i);