Пусть известно, что в автопарке, имеется 21 машина марки ТАТРА. Каждый из автомобилей перевез за день определенный объем груза (случайные числа в диапазоне от 100 до 236). Определить суммарный объем перевозок грузов за день.

Спасибо!!!

program kk;         var  x: array [1..100] of  real;         n, i: integer;         s, p: real;begin         cls;         writeln ('Введите размерность массива :');         readln (n);         s:=0;         writeln ('Введите элементы массива:');           for i:=1 to n do                                 begin                                             write ('x[',i,']=');                                             readln (x[i]);                                             s:=s+x[i];                                 end;         writeln ('Полученная сумма равна ', s);end.