Вычислить куб суммы тех элементов массива Х1,Х2,…,Хn, значение которых меньше R или находятся в пределах от Т до Р — Pascal(Паскаль)

program tmp;
uses crt;
var i,n,r,t,p:integer;
x:array[1..100] of integer
begin
clrscr;
readln(r,t,p);
for i:=1 to n do begin
x[i]:=random(10);
write(x[i],' ');
s:=0;
for i:=1 to n do
 if (x[i]<r) or (x[i] in [t..p]) then 
  s:=s+x[i];
Writeln('S=',sqr(s)*s);
readln
end.