правильно все?

[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.

[kuy]

Ну программа работает, но что бы узнать правильно ли все, нужно условие как-бы.

[Tolian92]

Сообщение от kuy

Ну программа работает, но что бы узнать правильно ли все, нужно условие как-бы.

все выше условие в документе