Пример программы на Pascal:

program SumOfSquares;
var
n, i: integer;
a: array [1..100] of real;
sumOfSquares: real;
begin
write('Введите количество чисел: ');
readln(n);
sumOfSquares := 0;
for i := 1 to n do
begin
write('Введите число ', i, ': ');
readln(a[i]);
sumOfSquares := sumOfSquares + a[i] * a[i];
end;
writeln('Сумма квадратов введенных чисел: ', sumOfSquares);
end.

Пользователю необходимо ввести количество чисел n и сами числа a1, a2, ..., an. Программа будет вычислять сумму квадратов введенных чисел и выводить результат на экран.