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