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