Стоимость доставки самолетом 1 кг. груза составляет 30 рублей. для каждого из n пассажиров введите вес багажа, который он перевозит, подсчитайте, сколько каждый пассажир должен заплатить за перевозку своего багажа. вычислите также общий вес груза, перевозимого пассажирами.(паскаль)

Var   i, v, n, vm: longint;   ar: array of integer;   begin   vm : = 0;   readln(n);   setlength(ar, n);   for i : = 1 to n do   begin     read(v);     ar[i - 1] : = v * 30;     vm : = vm + v;   end;   writeln;   for i : = 1 to n do write(ar[i - 1], ' ');   writeln;   write('общий вес: ', vm); end.

64*48*12*8=294,912- обьем в байтах 1 стр

 

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.