Заполни пропуски в программе.

Вывод на экран кубов чисел от 14 до 2.

var
:integer;
begin
for m:= downto do
writeln (m*m*m);
readln;
end.

Хмм, программу на каком языке? Обычно в школе Паскаль учат, но если на питоне - это делается через оператор ветвления. А именно else; if; elise;

Procedure TForm1.Button1Click(Sender: TObject);
var i,kol,sum:integer; aver:real;
begin
  sum:=0;
  kol:=0;
  for i:=10 to 99 do
     if i mod 13=0
       then
        begin
          sum:=sum+i;
          kol:=kol+1;
        end;
  aver:=sum/kol;
  Label4.Caption:=IntToStr(kol);
  Label5.Caption:=IntToStr(sum);
  Label6.Caption:=FloatToStr(aver);
end;                            

Оформление:

7*20*8*20*4=89600 бит=11200 байт