1)for i:=1 to 4 do
readln(a[i])
for i:=1 to 4 do
j:=j+a[i]
writeln(j/4);
2)writeln(a);
writeln(b);
writeln(c);
if b^2-4*a*c>0 then begin
x1:=(-b+sqrt(b^2-4*a*c))/(2*a);
x2:=(-b-sqrt(b^2-4*a*c))/(2*a)
1)for i:=1 to 4 do
readln(a[i])
for i:=1 to 4 do
j:=j+a[i]
writeln(j/4);
2)writeln(a);
writeln(b);
writeln(c);
if b^2-4*a*c>0 then begin
x1:=(-b+sqrt(b^2-4*a*c))/(2*a);
x2:=(-b-sqrt(b^2-4*a*c))/(2*a)