Нужно написать программу на pascal.Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.

Супер!

var  i,n:integer;  s,t:real;  begin  Write('n='); Readln(n);  s:=0;  for i:=1 to n do begin    Read(t);    s:=s+t*t    end;  Writeln('Сумма квадратов равна ',s)end.Примерn=5-23.1 42.6 146 0 0.12Сумма квадратов равна 23664.3844