Пусть известно, что в автопарке, имеется 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.