Помогите с ифом!

[Vallenrod]

Вот что я только мог сделать, но это даже не близко к концу (

program figura;
uses crt;
var x,y : integer;
begin
clrscr;
writeln('Ведите x,y: ');
readln(x,y);
if (x>=0) and (x<=3) and (y>=-1.5) and (y<=1.5) then
if (x=0) or (x=3) or (y=-1.5) or (y=1.5) then
writeln('Пункт на линий)
else
writeln('Пункт внутри')
else
writeln('Пункт снаружи');
readln;
end.

[Stilet]

Поправлю маленько

program figura;
uses crt;
var x,y : integer;
begin
clrscr;
writeln('Ведите x,y: ');
readln(x,y);
if (x>0) and (x<3) and (y>-1.5) and (y<1.5) then writeln('Пункт внутри')
else
if (x<0) or (x>3) or (y<-1.5) or (y>1.5) then writeln('Пункт снаружи')
else
writeln('Пункт на линий)
readln;
end.

[Vallenrod]

спасибо! тока это не совсем то (
Кто то полный код может написать?
Решил сам программу, если кому интересно могу код написать!