program Poezda;
var
a,Kol,i:integer;
Vagon,kolPas,kolGruz:integer;
begin
i:=0;
a:=1;
kolPas:=0;
kolGruz:=0;
Vagon:=0;
Writeln('предположим что все номера поездов 4 значные');
Writeln('Тогда номера начинающиеся на 1 2 3 будем считать пассажирскими');
Writeln('Вводите номера вагонов пока не надост а когда надоест введите цифру 0');
While (a<>0) do
begin
inc(i);
Writeln('Номер ',i,')поезда ');
Readln(a);
if ((a div 1000)<4)and((a div 1000)>0) then
  begin
   inc(kolPas);
  end;
if ((a div 1000)>3)and((a div 1000)>0) then
  begin
   inc(kolGruz);
   Write('введите количество вагонов в грузовом составе ',a,':');
   Readln(kol);
   Vagon:=Vagon+kol;
  end;
end;
Writeln('кол-во пассажирских поездов',kolPas);
Writeln('кол-во грузовых поездов',kolGruz);
Writeln('кол-во вогонов в грузовых поездах',Vagon);
end.