Оформите в виде блок-схемы алгоритм приготовления каши из топора по мотивам народной сказки.

начало ( овал)

развести костёр (прямоугольник)

взять топор, воду и горшок (прямоугольник)

поставить горшок на огонь (прямоугольник)

налить воду в горшок   (прямоугольник)

положить топор в горшок   (прямоугольник)

добавить гречку   (прямоугольник)

положить масло, соль (прямоугольник)

изъять топор из горшка (прямоугольник)

положить кашу в тарелку (прямоугольник)

конец (овал)

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.