Вопрос В чем ошибка программы (PascalABC)?

[monsters13]

program abc;
var a,y:real;
begin
readln(a);
if a>1000 and a<10000 or a=1000 then begin
y:=a div 1000;
end;
Writeln;
end.

 

[саня_]

Скобки

 

[Kir]

var a,y:integer; ... if (a>=1000)and(a<10000) then y:=a div 1000;