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

• 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)