Задача — с клавиатуры вводится число N, обозначающее количество футболистов команды «Шайба», а затем – N строк, в каждой из которых – информация об одном футболисте таком формате:
<Фамилия> <Имя> <год рождения> <голы>
Все данные разделяются одним пробелом. Нужно подсчитать, сколько футболистов, родившихся в период с 1988 по1990 год, не забили мячей вообще.

program qq;

uses crt;

var c: char;

i,n, count, Year, Gol: integer;

f:text;

begin

assign(f, 'input.txt');

reset(f);

writeln('Количество футболистов');

readln(N);

count := 0;

close (f);

for i:=1 to N do begin n:=5;

repeat readln(f,c); until c = ' ';

repeat readln(f,c); until c = ' ';

readln(f,Year);

readln(f,Gol);

if (1988 <= Year) and (year <= 1990) and

(Gol = 0) then count := count + 1;

end;

assign(f, 'output.txt');

rewrite(f);

Writeln(f);

close(f);

writeln(f,count);

end.

Объяснение: