Помогите найти ошибку в програме Delphi

[bosyak]

Помогите найти ошибку в програме Delphi

program Project1;
uses
Var
a,b,y1,y2,y3:real;
begin
Readln(a);
Readln(b);
y1=a+3;
y2=a/2+3;
y3=a-6;
if ((a>-5)and(a<-3)and(y1=b))or
((a>0)and(a<6)and(y2=b))or
((a>6)and(a<9)and(y3=b))
then Writeln('yes')
else Writeln('no');
Readln;
end.







задание
Используя имеющиеся в наличии задания, разработать программу, позволяющую определить по введенным с клавиатуры
координатам точки:принадлежит ли данная точка графику функции.
извените график кинуть не могу =(
кто поможет спасёт жизнь бедному студенту

 

[Vladimir_S]

Ошибок не вижу. Кроме того, что это просто Паскаль, а никакая не Delphi, и потом - не знаю, как транслятор реагирует на пустой "uses".