uses crt;
const
h:array [1..5] of string=('001a','002b','003c','004d','005f');
f:array [1..5] of string=('Иванов','Петров','Сидоров','Макаров','Синичкин');
p:array [1..5] of real=(2012,1213,1624,1546,2890);
g:array [1..5] of real=(313,331,332,354,346);
var
i:integer;
s:real;
procedure sr_v;
begin
s:=0;
for i:=1 to 5 do
s:=s+p[i];
writeln ('Средний объем перевозок ',s/5);
end;
begin
clrscr;
for i:=1 to 5 do begin
if (p[i]<2000) and (p[i]>1500) then
write (h[i],'  ',f[i],'  ',g[i],'  ',p[i]);
end;
sr_v;
readln
end.