Найти

НОД (M, N, K) - наибольший

общий делитель трех чисел: M,

N и K. Числа M, N

и K хранятся в первой строке входного

файла Evclid. in, а НОД этих чисел

сохранить в выходном файле Evclid. out.

Program nod1;

const InFile = 'Evclid. in';

OutFile = 'Evclid. out';

var m, n, k, nod, i, max: integer;

begin

assign (input, infile);

reset (InPut);

Read (InPut, m); Read (InPut, n); Read (InPut, K);

Close (inPut);

nod: = 1;

if m > = n then

max: = m

else max: = n;

if k > max then

max: = k;

for i: = 1 to max do

if (m mod i = 0) and (n mod i = 0) and (k mod i = 0) and (i > nod) then

nod: = i;

assign (OutPut, OutFile);

ReWrite (OutPut);

Write (OutPut, nod);

Close (output);

end.