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.