Введите в Паскале 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.