ИКТ умоляю я всё сделаю подпишусь на вас.
​
Это 4 класс

CONST k=10; {k - количество чисел в массиве}VAR a:array[1..k] of integer;    i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}    sr:real; {sr - среднее арифметическое} BEGIN  summ:=0; n:=0; {Обнуляем счетчики}  for i:=1 to k do     begin      a[i]:=random(50); {Заполняем массив случайными числами}      write (a[i],' '); {Выводим массив}      if a[i] mod 2=0 then         begin          summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}          n:=n+1        end    end;  sr:=summ/n; {Находим среднее арифметическое}  writeln;  writeln (sr:0:2) {Выводим среднее арифметическое}END.

4.

program p3;

uses Robot;

procedure Square2;

begin

right;

paint;

down;

paint;

left;

paint;

up;

paint

end;

var i,j:integer;

begin

Task('p3');

for i := 1 to 6 do

begin

Square2;

if i<=5 then

begin

for j := 1 to 2 do left;

for j := 1 to 2 do up      

end

end

end.

5.

program p4;

uses Robot;

procedure Square2;

begin

paint;

right;

paint;

down;

paint;

left;

paint;

up

end;

var i:integer;

begin

Task('p4');

Square2;

for i:= 1 to 2 do right;

Square2;

for i:= 1 to 2 do down;    

Square2;

for i:= 1 to 2 do left;    

Square2;

for i:= 1 to 2 do up

end.

Объяснение:

Второй вариант 5-го задания с двумя процедурами

program p4;

uses Robot;

procedure Square2;

begin

paint;

right;

paint;

down;

paint;

left;

paint;

up

end;

procedure Square;

var i:integer;

begin

Square2;

for i:= 1 to 2 do right;

Square2;

for i:= 1 to 2 do down;    

Square2;

for i:= 1 to 2 do left;    

Square2;

for i:= 1 to 2 do up

end;

begin

Task('p4');

Square

end.