Выполните тест по информатике​

Задание 1.

Газета - Предмет

Чтение - Процесс

Радуга - Явление

Задание 3.

Лишние:

Калькулятор

Задание 4.

Природные системы:

a) Солнечная Система

в) Растение

Извини что нет 2-го задания, не очень понял..

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.

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

64*48*12*8=294,912- обьем в байтах 1 стр