[emTPy]

for x:=r1+1 to r2-1 do
Должен быть целочисленным

Код:

var
r1,r2,k,x,y,rez: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
read(input,r1,r2);
close(input);
rez:=0;
{*Делаем перебор всех точек начиная от [-r2,r2](верхнийй левый угол) и 
заканчивая [r2,-r2](нижний правый угол)*}
for x:=-r2 to r2 do
  for y:=-r2 to r2 do
{*Для каждой точки проверяем *}
    if ((x*x+y*y<r2){*Лежит ли она внутри окружность радиуса r2 И*} 
and (x*x+y*y>r1){*вне окружности радиуса r1*}) then rez:=rez+1;{*если да прибавляем 1 к количесву деревьев*}
writeln(output,rez);
close(output);
end.