Як викликати на виконання підзадачу в середовищі Скретч​

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

var a: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.

поскольку язык не указан пишу в том который мне удобнее

def temp-table wares no-undo

  field ware as char

  field cost as dec extent 13

  field infl as dec.

def var i as int.

def var infl as dec.

input from data.txt.

repeat:

  create wares.

  import wares.

end.

input close.

do i = 2 to 13:

    infl=random(0.0005, 0.02).

  for each wares :

        wares.cost[i]=wares.cost[i-1]*(1+infl).

  end.

end.

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.