Задача по Pascal абц. Составьте программу нахождения суммы n произвольных чисел (число n ввести с клавиатуры).

uses crt;
var n, i: integer;
p: longint;
begin
readln(n);
randomize;
p := 0;
for i := 1 to n do p := p+random(100);
writeln(p);
readln;
end.
Случайные в данном случае выбираются из диапазона [0;100).