Задание

Соберите на языке Паскаль программу соответствующую блок-схеме.

var a, b, a1, b1: integer;

begin

readln (a, b);

a1:=a; b1:=b;

while a<>b do

if a>b then a:=a-b

else b:=b-a;

if a<>0 then writeln ('НОД(', a1, ', ', b1,')=', a)

end.

else writeln ('НОД(', a1, ', ', b1,')=', b)