Булеан

[vadiprog]

Записать булевое выражение, значением которого является истина тогда и только тогда, когда точка (x, у) лежит вне круга с радиусом r с центром в точке (1, 0). На паскалике пожалуйста помогите.

[Вадим Мошев]

Записать булевое выражение

sqr(x-1) + y*y >= r*r

[vadiprog]

А как программу правильно оформить? Я просто немного не въезжаю в Булевый тип...

[vadiprog]

А все сделал
var r,x,y:real;
c:boolean;
begin
writeln('Vvedit x,y,r');
readln(x,y,r);
c:=(sqr(x-1) + y*y >= r*r);
writeln(c);
readln;
end.