Введите в Паскале 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,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;begins:=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 чисел: 24315s = 55 p = 14400