Помогите решить задачу ** Pascal, подробнее ** фото. Даю 30+ баллов

Question

Помогите решить задачу на Pascal, подробнее на фото. Даю 30+ баллов

---

Answer 1

Program mass;
Uses Crt;
Var 
x,y,z,a: array [1..5] of real;
i:byte;b,bi:real;
Begin 
ClrScr;
b:=0;
For i :=1 to 5 do 
begin
write ('x',i,'=');
readln(x[i]);
end;
writeln;
For i :=1 to 5 do 
begin
write ('y',i,'=');
readln(y[i]);
end;
writeln;
For i :=1 to 5 do 
begin
write ('z',i,'=');
readln(z[i]);
end;
writeln;
For i :=1 to 5 do 
begin
a[i]:=sqrt(abs(x[i]*y[i]*z[i]));
writeln('a' , i ,'=',a[i]:5:2);
end;
writeln;
For i :=1 to 5 do begin
bi:=sqr(x[i]-y[i]);
b:=b+bi;
end;
writeln('b=',b:5:2);
end.