Составьте программу, которая формирует массив из 40 случайных целых…

program pr; var mas: array[1… 40] of integer; i, sum: integer; beginrandomize; 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. Программу проверил все работает