Program zap_19;
Uses Crt;
Const n=10;
Type reys = record
k:integer;
punkt,tovar:string[20];
ves:real;
end;
Var a : array[1..n] of reys;
i :byte;
s:real;
BEGIN
ClrScr;
S:=0;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите номер рейса');
Readln(k);
Writeln(' Введите пункт назначения');
Readln(punkt);
Writeln(' Введите наименование товара');
Readln(tovar);
Writeln(' Введите вес товара');
Readln(ves);
S:=s+ves;
End;
Writeln('Суммарный вес перевозок ',s:4:2);
Readln;
end.