Нужно написать программу на 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