в текстовом файле дан массив из 10 чисел определить кол-во четных, нечетных и отрицательных чисел

program zz1;

var n, i, j, k: integer; / / задаем переменные целого типа

f1: text; / / задаем переменную текстового типа для работы с файлом

mas:array[1 ... 10] of integer;

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

while not eoln (f1) do

begin

i:=i + 1;

read (f1, mas[i]);

if (mas[i] mod 2 = 0) and (mas[i] 0) then k:=k + 1;

if mas[i] mod 2 = 1 then n:=n + 1;

if mas[i] < 0 then j:=j + 1;

end;

writeln (' количество четных = ', k);

writeln (' количество нечетных = ', n);

writeln (' количество отрицательных = ', j);

close (f1); / / закрываем файл input

end.