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

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

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.