type
date=record
num:string[20];
marka:string[20];
fam:string[20];
teh:byte;
end;
var
sved:array[1..100] of date;
k,n,i:integer;
f:text;
begin
assign (f,'C:/3.txt');
rewrite(f);
write ('Enter n=');
readln(n);
for i:=1 to n do begin
write ('nomer=');
readln (sved[i].num);
write ('marka=');
readln(sved[i].marka);
write ('fam=');
readln(sved[i].fam);
write ('(0,1)teh=');
readln (sved[i].teh);
if sved[i].teh=0 then writeln (f,sved[i].num,'    ',sved[i].fam);
end;
close(f);
end.