У меня получилась такая тема:

program cel;
const n=100;
var
n1,i:integer;
y:real;
y1:integer;
begin
randomize;
n1:=-100+random(201);
y:=(n1*n1-5*n1+60)/(2*n1-1); y1:=0;
for i:=-100 to n do
if y mod 2 = 0 then y1:=y1+1;
readln
end.

Че-то у меня комп не выдает правильность строки if y mod 2 = 0 then y1:=y1+1. Буду рад узнать почему.