Графика Опции

[-max-]

Помогите решить:

Дано три целых числа, определяющих положение центра окружности на экране и ее радиус. Если окружность не пересекает горизонтальную прямую, проходящую через середину экрана, то высветить данную окружность и окружность, симметрическую данной относительно этой прямой.

[-max-]

Помогите доделать задачу:

Дано три целых числа, определяющих положение центра окружности на экране и ее радиус. Если окружность не пересекает горизонтальную прямую, проходящую через середину экрана, то высветить данную окружность и окружность, симметрическую данной относительно этой прямой.

Код

uses crt, graph;
var
driver, mode,error: integer;
x,y,r:word;
begin
writeln('vvedit x,y,r');
readln(x,y,r);
begin
driver:=detect;
initgraph(driver, mode, 'c:\tp\bp\bgi');
error:=graphresult;
line(0,240,640,240);
circle(x,y,r);
if y<((getmaxy div 2)-r) then
circle(x,y,r);
if y>((getmaxy div 2)+r) then
circle(x,y,r);
closegraph;
readln;
end;
end.