Составьте программу на языке паскаль по нахождению среднего арифметического 3 чисел!

Program nevazhno;
var a,b,c:integer;
d:real;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите третье число');
readln(c);
d:=(a+b+c)/3;
writeln('среднее арифметическое=',d);
end.

Язык не указан, поэтому запишу на универсальном языке. Потом просто подставите в свой язык.

x = длинна массива A1
y = длинна массива A2
z = длинна массива A3

цикл i от 0 до x:
    если i<=0:
        B1[0] = B1[0] + 1
    иначе:
        B1[1] = B1[1] + 1

цикл i от 0 до y:
    если i<=0:
        B2[0] = B2[0] + 1
    иначе:
        B2[1] = B2[1] + 1

цикл i от 0 до z:
    если i<=0:
        B3[0] = B3[0] + 1
    иначе:
        B3[1] = B3[1] + 1

Вот и все.
Можно было объединить эти 3 цикла в один двойной цикл, однако это работает не во всех языках.

//PascalABC.NET

uses GraphABC;

var  c: integer;

begin

 window.IsFixedSize := true;//запрет изменения размера экрана

 window.Clear(cllightblue);//очистка экрана синим цветом

 pen.Color := clred;//меняем цвет пера на красный

 for var i := 0 to 19 do//цикл для отрисовки линий

 begin

   c := (window.Height div 19) * i;//сдвиг линнии по y

   line(0, 0 + c, window.Width, window.Height - c);//рисуем линию

 end;

end.

Объяснение:

uses graphabc;

begin

circle(50,50,50);

circle(50,50,20);

circle(150,50,50);

circle(150,50,20);

circle(250,50,50);

circle(250,50,20);

circle(350,50,50);

circle(350,50,20);

circle(450,50,50);

circle(450,50,20);

circle(550,50,50);

circle(550,50,20);

end.