Информатика! алгоритм сказки "репка"

0)начало  1)посадил дед репку  2)выростил  3)начал ее вытягивать из земли  4)позвал бабку  5)тянут потянут ,вытянуть не могут  5)позвали внучку  6)тянут потянут ,вытянуть не могут  7)позвали жучку  8)тянут потянут ,вытянуть не могут 9) позвали кошку  10) тянут потянут, вытянуть не могут  11)позвали мышку вытащили  12)конец

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

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