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.