Напишите программу, которая читает массу 12 грузов, что загружаются в машину и выдает общую массу груза в машине после загрузки.

var s, i, a: integer;

begin

s: =0;

writeln('введите массу 12 грузов');

for i: =1 to 12 do

begin

read(a);

s: =s+a;

end;

writeln('масса 12 грузов равна ',s);

end.

Const   p = 3.14;   //число "пи" var   n:   byte;   r, d, l, s:   real; begin   {сообщаем кратко данные : }   writeln(' пусть в окружности: ');   writeln(' 1)r - радиус; ');   writeln(' 2)d - диаметр; ');   writeln(' 3)l - длина; ');   writeln(' 4)s - площадь круга.');   writeln;   writeln(' введите номер одной из величин (от 1 до 4): ');   write('  n = ');   readln(n);   //вводим номер величины.   {здесь используем цикл. запрашивается ввод до тех пор, пока   номер n не будет лежать в диапазоне [1, 4]: }     while   (n < 1)or(n > 4)   do//условие вхождения в цикл.       begin         writeln(' такого номера здесь нет! ');         writeln(' введите другой номер (от 1 до 4): ');         write('  n = ');         readln(n)  //снова вводим номер.       end;   writeln;   {сообщаем о том, какую величину мы ввели,   а потом запрашиваем ввести её значение: }   write(' это ' );       case   n  of       1:   begin                 writeln('радиус окружности. введите его значение: ');                 write('  r = ');                 readln(r)                end;       2:   begin                 writeln('диаметр. введите его значение: ');                 write('  d = ');                 readln(d)                end;       3:   begin                 writeln('длина окружности. введите её значение: ');                 write('  l = ');                 readln(l)                end;       4:   begin                 writeln('площадь круга. введите её значение: ');                 write('  s = ');                 readln(s)                end                    end ;     writeln(' тогда для остальных величин будем иметь: ');   writeln;   {используя соотношения d = 2*r, l = 2*p*r, s = p*sqr(r),    выразим последовательно  три  величины через четвертую: }     case   n  of       1:   begin{здесь дано r. находим d, l и s: }                 writeln(' диметр: d = ', 2 * r);                 writeln(' длина: l = ', 2 * p * r);                 writeln(' площадь: s = ' , p * sqr(r))                end;       2:   begin{здесь дано d. находим r, l и s: }                 writeln(' радиус: r = ', d / 2);                 writeln(' длина: l = ', p * d);                 writeln(' площадь: s = ', p * sqr(d / 2))               end;       3:   begin{здесь дано l. находим r, d и s: }                 writeln(' радиус: r = ', l / p / 2);                 writeln(' диаметр: d = ', l / p);                 writeln(' площадь: s = ' , sqr(l) / p / 4 )                end;       4:   begin{здесь дано s. находим r, d и l: }                 writeln(' радиус: r = ', sqrt(s / p): 7: 4);                 writeln(' диаметр: d = ', 2 * sqrt(s / p): 7: 4);                 writeln(' длина: l = ', 2 * sqrt(p * s): 7: 4)               end                  end  end .