Введите в Паскале 5 чисел. Найдите сумму их квадратов и произведение квадратов этих чисел

Var

a, b, c, d, f, sum, proiz:integer; begin Writeln ('Введите 5 чисел') ; readln (a, b, c, d, f) ; a:=sqr (a) ; b:=sqr (b) ; c:=sqr (c) ; d:=sqr (d) ; f:=sqr (f) ; sum:=a+b+c+d+f; Writeln ('Сумма квадратов данных пяти чисел = ', sum) ; proiz:=a*b*c*d*f; Writeln ('Произведение квадратов данных пяти чисел = ', proiz) ; end.

Var a, s, p, i:integer;

begin

s:=0; p:=1;

writeln ('Введите 5 чисел:') ;

for i:=1 to 5 do

begin

readln (a) ;

s:=s+a*a;

p:=p*a*a;

end;

writeln ('s = ', s,' p = ', p) ;

end.

Пример:

Введите 5 чисел:

2

4

3

1

5

s = 55 p = 14400