Составьте блок схему: program qq; var a, b, c: integer; begin writeln ('введите два числа '); readln(a,b); while a< > b do begin if a> b then a: =a-b else b: =b-a; end; writeln ('нод равен ',a); end. p.s(нод-это наибольший общий делитель)