Блок схему к "Вычислите произведение чисел от 6 до 11, используя цикол WHILE и For.Pascal..

begin  writeln('введите целое число');  readln( a ); x:=a;  s:=0;  while ( x<>0 ) do  begin    s := s + (x mod 10);    x := x div 10;  end; - скелет программы