В среде Lazarus создать проект для решения уравнения ах+b=с, где a,b,c - действительные числа и их задает пользователь. Для сдедующих значений:
1) a=0, b=12, c=3
2) a=7, b= -5, c=2
Большое за ответ

Задача решается при кругов Эйлера.
Пилот = n1 + n4 + n6 + n7 = 700
Пилот | Вертолёт | Акула = n1 + n2 + n3 + n4 + n5 + n6 + n7 = 1200
Пилот & Вертолёт & Акула = n7 = 0
Пилот & Акула = n4 + n7 = 110
Пилот & Вертолёт = n6 + n7 = 220
Вертолёт & Акула = n5 + n7 = 330
Найти : n2 + n3 + n4 + n5 + n6
Т.к  n7 = 0, то n4=110
                       n5 = 330
                       n6 = 220
Тогда из первого выражения находим, что :
n1 + n4 + n6 + n7 = 700
n1 + 110 + 220 + 0 = 700
n1 = 370
Из второго выражения получаем итоговый ответ:
n1 + n2 + n3 + n4 + n5 + n6 + n7 = 1200
n2 + n3 + n4 + n5 + n6 = 1200 - n1 - n7 = 1200 - 370 = 830
ответ: 830

Над найти расстояние от точки до центра окружности. Прще использовать квадрат расстояния. Если он равен квадрату радиуса, то точка на окружности. Если меньше, то внутри круга. Больше, то вне круга.

var xm,ym,xc,yc,r:real;
begin
 writeln('Введите координаты точки Xm, Ym');
 readln(xm,ym);
 writeln('Введите координаты  центра окружности Xc, Yc');
 readln(xc,yc);
 writeln('Введите радиус окружности R');
 readln(r);
 if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('На окружности') else
 if sqr(r)>sqr(xm-xc)+sqr(ym-yc) then writeln ('Внутри круга') else
 writeln('Снаружи круга');
end.

Тест №1
Введите координаты точки Xm, Ym
4 2
Введите координаты  центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
На окружности

Тест №2
Введите координаты точки Xm, Ym
3 1
Введите координаты  центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Внутри круга

Тест №3
Введите координаты точки Xm, Ym
-1 -3
Введите координаты  центра окружности Xc, Yc
2 2
Введите радиус окружности R
2
Снаружи круга