А)=450+A3=>=450+B3
\
=450+A4
б)=A3*$F$7=>=B3*$F$7
\
=A4*$F$7
в)=$D3=>$D3
\
=$D4
г)=450+A3*$F$7-$D3=>=450+B3*$F$7-$D3
\
=450+A4*$F$7-$D4
Это где-то 7,639Gb, так как 1 Gb=1024Mb
Блок схема во вложении.
Только сразу после элемента "начало" еще нужен блок прямоугольный с N:=20
Var g,i:integer;
begin
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln('Мы нашли в лесу ',g,' гриб'); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln('Мы нашли в лесу ',g,' гриба'); i:=1; end;
if i=0 then writeln('Мы нашли в лесу ',g,' грибов');
<span>end.</span>
В 2 раза
....................................