Pascal...нужно "склеить" 3 задачки

[Shpuntik=)]

Есть 3 задачи по геометрии...
Задача 1
Дан круг (X0, Y0, R) и точка (X, Y), где X0, Y0, R, X, Y - вещественные числа.
Определить, лежит ли эта точка внутри данного круга.
Задача 2
Дан треугольник с вершинами (X1, Y1); (X2, Y2); (X3, Y3) и точка (X, Y). Все Xi, Yi - вещественные числа.
Определить, лежит ли эта точка внутри данного треугольника.
Задача 3
Дан прямоугольник, заданный двумя противоположными вершинами (X1, Y1); (X2, Y2) и точка (X, Y). Все Xi, Yi - вещественные числа.
Определить, лежит ли эта точка внутри данного прямоугольника.

У меня есть код реализации этих задач на Pascal.

Code (Pascal):

1)

var X0, Y0, R, X, Y: Real;
begin

ReadLn (X0, Y0, R, X, Y);

WriteLn (Sqr (X - X0) + Sqr (Y - Y0) <= Sqr (R));

end.


2)
const eps = 1E-5;

var X1, Y1, X2, Y2, X3, Y3, X, Y: Real;

S0, S1, S2, S3: Real;
function S (X1, Y1, X2, Y2, X3, Y3: Real): Real;

var a, b, c, p: Real;

begin

a := Sqrt (Sqr (X1 - X2) + Sqr (Y1 - Y2));

b := Sqrt (Sqr (X1 - X3) + Sqr (Y1 - Y3));

c := Sqrt (Sqr (X3 - X2) + Sqr (Y3 - Y2));

p := 0.5 * (a + b + c);

S := Sqrt (p * (p - a) * (p - b) * (p - c));

end; {func S}
begin

ReadLn (X1, Y1, X2, Y2, X3, Y3, X, Y);

S0 := S (X1, Y1, X2, Y2, X3, Y3);

S1 := S (X, Y, X2, Y2, X3, Y3);

S2 := S (X1, Y1, X, Y, X3, Y3);

S3 := S (X1, Y1, X2, Y2, X, Y);

WriteLn (S0 + eps >= S1 + S2 + S3);

end.

3)
var X1, Y1, X2, Y2, X, Y: Real;
begin

ReadLn (X1, Y1, X2, Y2, X, Y);

WriteLn ((Abs (X1 - X2) = Abs (X1 - X) + Abs (X2 - X)) and

(Abs (Y1 - Y2) = Abs (Y1 - Y) + Abs (Y2 - Y)));

end.


Мне нужно написать начало для этих задач,в котором пользователь бы сначала выбрал фигуру(круг,прямоугольник или треугольник) и в зависимости от его выбора выполнялась одна их этих 3-х программ.



Заранее спасибо

[Кольша]

writeln('write type of figure!');
readln(tp);
case tp of
1:begin
end;
2:begin end;
3:begin end;
end;
P.s примерный набросок как все должно выглядеть..