Помогите,прошу,умоляю!
Составить программу на языке програмирования Паскаль.
1) Пойдет ли сундук с соровищами со сторонами а,в,с в иллюминатор затонувшего корабля диаметром д.
2) Имеется треугольник с координатами(0,0)(5,0)(0,5). Попадает ли точка А(х,у) внутрь либо на границы этого треугольника. Ответ вывести в форме Да или Нет.

Буду ждать вторую

Уже сделано, обновите экран

Спасибо большое! Огромное спасибо!

Пожалуйста

var  a,b,c,d,x,y:real;begin  Write('Введите размеры сторон сундука -> '); Readln(a,b,c);  Write('Введите диаметр иллюминатора -> '); Readln(d);  if a<b then begin    x:=a;    if b<c then y:=b else y:=c  end  else begin    x:=b;    if a<c then y:=a else y:=c  end;  if (sqr(x)+sqr(y)<sqr(d)) then Writeln('Сундук можно вытащить')  else Writeln('Сундук нельзя вытащить')end.Тестовое решение:Введите размеры сторон сундука -> 3 5 3.99Введите диаметр иллюминатора -> 5Сундук можно вытащить**********************Условие попадания точки A(x,y) внутрь треугольника описывается какvar  x,y:real;begin  Write('Введите координаты x и y точки -> '); Readln(x,y);  if (x>=0) and (y>=0) and (y<=5-x) then Writeln('Да')  else Writeln('Нет')end.Тестовое решение:Введите координаты x и y точки -> 3 2.5НетВведите координаты x и y точки -> 2.1 2.8Да