Помогите написать 2 программы в Pascal ABC

1. дана точка а с координатами x. y, и радиус окружности, центр которой лежит в точке о, как расположится точка и окружность

2. даны координаты вершины треугольника, является ли он прямоугольным

Var Ax, Ay, Ox, Oy, R:real;

Begin

WriteLn ('Точка А:');

Write (' x = '); ReadLn (Ax);

Write (' y = '); ReadLn (Ay);

WriteLn ('Центр окружности:');

Write (' x = '); ReadLn (Ox);

Write (' y = '); ReadLn (Oy);

Write ('Радиус окружности: '); ReadLn (R);

if sqr (Ax-Ox) + Sqr (Ay-Oy) < R*R then WriteLn ('Точка лежит внутри окружности')

else if sqr (Ax-Ox) + Sqr (Ay-Oy) = R*R then WriteLn ('Точка лежит на окружности')

else WriteLn ('Точка находится вне окружности')

End.

Var

Ax, Ay, Bx, By, Cx, Cy, AB, BC, CA:real;

Begin

WriteLn ('Координаты первой вершины');

Write (' x = '); ReadLn (Ax);

Write (' y = '); ReadLn (Ay);

WriteLn ('Координаты второй вершины');

Write (' x = '); ReadLn (Bx);

Write (' y = '); ReadLn (By);

WriteLn ('Координаты третьей вершины');

Write (' x = '); ReadLn (Cx);

Write (' y = '); ReadLn (Cy);

AB:=Sqr (Ax-Bx) + Sqr (Ay-By);

BC:=Sqr (Bx-Cx) + Sqr (By-Cy);

CA:=Sqr (Cx-Ax) + Sqr (Cy-Ay);

if (AB+BC=CA) or (BC+CA=AB) or (CA+AB=BC) then WriteLn ('Треугольник - прямоугольный')

else WriteLn ('Данный треугольник не является прямоугольным')

End.