Многострочное текстовое поле содержит 6 целых чисел. Создайте шей папке.
прямоугольники,
обработчик события Click для кнопки, выполнение которого закра.
сит в синий цвет прямоугольники, для которых соответствующие
значения больше чем 100, а в зеленый цвет
для которых соответствующие значения больше чем 200. Сохраните
проект в папке с именем Задание 6.3.8, созданной в вашей папке​

Для начала задачу нужно решить чисто математически, решения приведены на листочках. 
Поскольку задача школьная, то вариант совпадения точек не рассматривается
Алгоритмического языка не знаю, но поскольку это вариант псевдокода, то думаю алгоритм вполне понятен

алг Круг_по_двум_точкам_и_радиусу(арг действ Ax, арг действ Ay, арг действ Bx, арг действ By, арг действ r)
   дано | A,B,r
   надо | нарисовать окружность
нач
    ввод Ax, Ay, Bx, By, r

    действ dAB = ((Ax - Bx)^2 + (Ay - By)^2)^(0.5) // длина АВ
    действ h = (r^2-dAB^2/4)^(0.5) // высота и длина вектора ОМ

    // М середина АВ
    действ Mx = (Ax + Bx) / 2 
    действ My = (Ay + By) / 2

    //первый круг
    действ Ox = Mx + (Ay - By) * h/dAB
    действ Oy = My - (Ax - Bx) * h/dAB
    нарисовать_круг(Ox, Oy, r)

    //второй круг
    Ox = Mx - (Ay - By) * h/dAB
    Oy = My + (Ax - Bx) * h/dAB
    нарисовать_круг(Ox, Oy, r)
кон

Может так?..
а)
Program tt;
var t,z,x,y:integer;
begin 
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if x>0 then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
б)
Program tt;
var t,z,x,y:integer;
begin 
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if (x=y) or (y=z) or (x=z) then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
в)
Program tt;
var  A,B,C,t: Real;
begin      
Writeln ('Введите коэффициенты: A B C');      
Readln(A,B,C);     
t := B * B - 4 * A * C;
if t < 0 then 
Writeln (t,' = TRUE')
Else
Writeln (t,' = FALSE')
End.