Пусть A(n) - фамилии, а B(n) - багаж
program samolet;

uses crt;

var a,b:array[1..n]of integer; i,n,k,s:integer;

begin

clrscr;

readln(n);

s:=0;

k:=0;

for i:=1 to n do s:=s+b[i];

for i:=1 to n do

if b[i]=0 then begin

writeln(a[i]);

k:=k+1;

end;

writeln('Кол-во пассажиров без багажа - ',k);

readln;

end.