Вычислить сумму квадратов из первых натуральных чисел

var a: array[0..100] of integer;
 i,k,s,n:integer;
begin
s:=0;
 writeln('Vvedite razmer massiva n');
 readln(n);
 Writeln('vvedite 4islo k');
 readln(k);
 randomize;
 for i := 1 to n do begin
 a[i]:=random(25);
 write(a[i],' ');
  if a[i]=k then inc(s);
  end;
  writeln;
  writeln('kol-vo 4isel = ',s);
readln;
 
end.

{3 номер }
uses crt;
var a:array[1..10] of integer;
    b:array[1..10] of integer;
i,n,k,x,min:integer;
begin
clrscr;
randomize;
write('введите x = ');
readln(x);
write('введите количество элементов n = ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(10);
end;
for i:=1 to n do
begin
write(a[i]:3);
end;
for i:=1 to n do
begin
if a[i]>x then
begin
inc(k);
b[k]:=a[i];
writeln;
end;
end;
for i:=1 to k do
begin
write(b[i]:3);
end;
min:=b[1];
for i:=2 to k do
begin
if b[i]<min then
begin
Min:=b[i];
end;
end;
writeln('  Min = ',Min);
readkey;
end.