Написать код программы. lazarus ide. вводится последовательность из n целых элементов. для каждого элемента последовательности найти среднее значение его цифр. создать функцию для расчёта среднего значения цифр в числе.

Для каждого элемента последовательности...

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

алг Круг_по_двум_точкам_и_радиусу(арг действ 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.