реалізувати проект який буде реалізовувати обчислення суми квадратів цілих чисел з діапазону (a,b).a,b вводяться користувачем​

Программа на языке Паскаль:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

var

X : array [1..5] of integer; {массив из 5 элементов}

i : integer; {Счётчик цикла}

d : integer; {Произведение положительных}

L : integer; {Количество отрицательных и нулей}

begin

{Ввести таб Х[1:5]}

write('Введите 5 чисел в массив Х: ');

for i := 1 to 5 do read(X[i]);

d := 1;

L := 0;

for i := 1 to 5 do

if (x[i] > 0) then

d := d * x[i]

else

L := L + 1;

{Вывести d, L}

writeln('Произведение d = ', d);

writeln('Количество отрицательных - ', L)

end.

CONST k=10; {k - количество чисел в массиве}VAR a:array[1..k] of integer;    i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}    sr:real; {sr - среднее арифметическое} BEGIN  summ:=0; n:=0; {Обнуляем счетчики}  for i:=1 to k do     begin      a[i]:=random(50); {Заполняем массив случайными числами}      write (a[i],' '); {Выводим массив}      if a[i] mod 2=0 then         begin          summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}          n:=n+1        end    end;  sr:=summ/n; {Находим среднее арифметическое}  writeln;  writeln (sr:0:2) {Выводим среднее арифметическое}END.