Просто не догоняю как сделать, плиз помогите Великие ПРОГРАМЕРЫ ))

[Stilet]

Можно схитрить - проверить цвет в той координате в которой точка, если он совпадает с цветом фикуры то точка в нее попадает. Для сложных фигур самое оно )
P.S. Я так своих преподов накалывал - они были не против.

[PUSHkiN]

и правда хитро сейчас буду пробовать...
Только вот непомню как закрашивать такие фигуры, которые разными процедурами нарисованы, надеюсь, что вспомню.... всё равно за идею огромное спасибо...

[Карась]

Без хитростей вторая задача может решаться так:

Const R = 5;

Var x, y : Integer;
    Flag : Boolean;

Begin
Write('x = '); Read(x);
Write('y = '); Read(y);

Flag := False;
If (-R <= x) And (x <= R) Then
  Begin
    If SQRT((R-ABS(X))*(R-ABS(X)) + y * y) <= R Then Flag := True;
    If ((x < 0) and (y < 0))   Or   ((x > 0) And (y > 0)) Then Flag := False;
  End;

Writeln(Flag);
Readln; Readln; // Опять не понятно почему их нужно два?!?!
End.