Задание

Определите, что будет выведено на экран в результате выполнения фрагмента программы:

program main;

function evq(x, y: integer): integer;

begin

while (x <> y) do

if x > y then

x := x - y

else

y := y - x;

evq := x; end;

begin

a := 56;

b := 16;

writeln(evq(a, b));

end.