Нарисовать блок-схему и определить, какие значения примут переменные "c" и "d" в результате выполнения данного фрагмента алгоритма a: = 6 b: = 2 если a > b то c = a - b иначе с = a * b d = 1 пока с < a нц d = d + 1 c = c + 1 кц всё

Var
  a,b,c,d: integer;
 
begina:=-6;
b:=2;if a>b then
  c:=a-b
else
  c:=a*b;
 
d:=1;while c  d:=d+1;
  c:=c+1;
  end;
 
writeln(Значение d = ,d,.);
writeln(Значение c = ,c,.);
 
end.

Паскаль. d = 7. c = -6.