Var
  a,b,c,x,y:real;
begin
  Write('Введите a и b: '); Read(a,b);
  repeat
    Write('Введите c, не равное нулю: ');
    Read(c)
  until c0;
  x:=2*sqr(a)-b/(3*c);
  {
  Если Вы относитесь к людям, ненавидящим скобки
  и тех, кто решает Ваши задания, то в Вашем условии
  на 3а делится все выражение, и тогда предыдущая строка
  должна иметь вид x:=(2*sqr(a)-b)/(3*a);
  }
  if x>=0 then
  begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end
  else
    Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')
end.

Тестовое решение:
Введите a и b: 3.4 -2.18
Введите c, не равное нулю: 0
Введите c, не равное нулю: 5.172
x=23.2605001288992, y=-22.5762191684909