ok:=1;
for i:=1 to n do begin
if (spis[i].god_izd<=(1960)) and (spis[i].god_izd>=(1970)) then begin
with spis[i] do begin
spis2[ok].fio:=fio;
spis2[ok].shifr:=shifr;
spis2[ok].nazv:=nazv;
spis2[ok].god_izd:=god_izd;
ok:=ok+1;
end;
end;
end;
n:=ok-1;
writeln('ФИО ШИФР НАЗВАНИЕ ГОД ИЗДАНИЯ');
for i:=1 to n do
with spis2[i] do
writeln(FIO,' ',shifr,' ',nazv,' ',god_izd);
b2s6PTE7CmZvciBpOj0xIHRvIG4gZG8gYmVnaW4KaWYgKHNwaXNbaV0uZ29kX2l6ZDw9KDE5NjApKSBhbmQgKHNwaXNbaV0uZ29kX2l6ZD49KDE5NzApKSB0aGVuICBiZWdpbgogd2l0aCBzcGlzW2ldIGRvIGJlZ2luCiAgICAgc3BpczJbb2tdLmZpbzo9ZmlvOwogICAgIHNwaXMyW29rXS5zaGlmcjo9c2hpZnI7CiAgICAgc3BpczJbb2tdLm5henY6PW5henY7CiAgICAgc3BpczJbb2tdLmdvZF9pemQ6PWdvZF9pemQ7CiAgICAgb2s6PW9rKzE7CiBlbmQ7CmVuZDsKZW5kOwpuOj1vay0xOwp3cml0ZWxuKCfQpNCY0J4g0KjQmNCk0KAg0J3QkNCX0JLQkNCd0JjQlSDQk9Ce0JQg0JjQl9CU0JDQndCY0K8nKTsKZm9yIGk6PTEgdG8gbiBkbwogd2l0aCBzcGlzMltpXSBkbwogICB3cml0ZWxuKEZJTywnICAnLHNoaWZyLCcgICcsbmF6diwnICAgJyxnb2RfaXpkKTs=