Написать программу в паскале
Дано три массива A,B,C состоящее из 10 элементов.Присвоить массиву D среднее арифметическое каждого элемента этих трех массивов.

Uses crt;Var a,b,c,d;array [1..10] of integer; I:integer;BeginClrscr;Begin For i:=1 to 10 do Begin a[i]:=random(50)+1; b[i]:=random(50)+1; c[i]:=random(50)+1; d[i]:=(a[i]+b[i]+c[i]) div 3; end;Write('A) ');For i:=1 to 10 do write(a[i],' ');Writeln;write('B) ');For i:=1 to 10 do write(b[i],' ');Writeln;Write('C) ');For i:=1 to 10 do write(c[i],' ');Writeln;Writeln('Средние значения ');Write('D) ');For i:=1 to 10 do write(d[i],' ');Writeln;Readkey;End.