почему неправильно?

[Tolian92]

program as;
var
x, y : real;
begin
write ( 'Enter x: ' );
readln ( x );
write ( 'Enter y: ' );
readln ( y );
if ( ( x * x + y * y <= 1 ) and ( x >= -0.7 ) ) then
writeln ( 'In' )
else
writeln ( 'Out' );
readln;
end.

___________
ОБЪЯСНЯЮ, ПОЧЕМУ НЕПРАВИЛЬНО:
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

3) поосторожнее с кросспостингом! Он запрещён на форуме!

Модератор.