{* Задача 57 *}

Unit ZADACH57;
Interface
Implementation
Begin
 writeln('Составить программу для нахождения НОД 4 натуральных чисел, используя функцию нахождения НОД 2х чисел.');
End.

Program zadach57;

Uses zadach57.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  b : integer;
  c : integer;
  d : integer;
  n : integer;
Function nod2(a, b : integer) : integer;
Begin
  While (a > 0)And(b > 0) Do
    If ab Then
      nod2 := a
    Else nod2 := b;
End;
Begin
  readln(a, b, c, d);
  n := nod2( nod2(a, b) , nod2(c, d) );
  writeln(n);
  readln; {* Ждем нажатия Enter *}
End.