Question

Дополните программу на паскаль
Вот программа:
program a1;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
write('n: ');
readln(n);
s:=0;
for i:=1 to n do begin write('a[',i,']: ');
read(a[i]) end;
for i:=1 to n do s:=s+a[i];
writeln('s=',s);
readln;
readln
end.
Сделайте так, чтобы в a[',i,']: ' вводился случайный диапазон чисел от 150 до 200