Составьте блок схему: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(НОД-это наибольший общий делитель)