var
f: file of integer;
num: integer;
positiveCount, negativeCount: integer;

begin
positiveCount := 0;
negativeCount := 0;

Assign(f, 'des.dat');
Reset(f);

while not Eof(f) do
begin
Read(f, num);

if num > 0 then
positiveCount := positiveCount + 1
else if num < 0 then
negativeCount := negativeCount + 1;

end;

Close(f);

writeln('Количество положительных элементов: ', positiveCount);
writeln('Количество отрицательных элементов: ', negativeCount);
end.