Решить уравнение

program piu;
uses crt;
var
   s,x,a,b,c:real;
begin
 clrscr;
 write('a=');readln(a);
 write('x=');readln(x);
 write('b=');readln(b);
 write('c=');readln(c);
 s:=(c+sqrt(x-b))/(sqrt(x+a));
 writeln(s);
 readln;
end.

uses 
 crt;
var
 a,b,c:integer;
 x:real;
 
 
 
 begin
 writeln('введите коэф. уравнения sqrt(x+a)=c+sqrt(x-b)');
  writeln('a');
   readln(a);
  writeln('b');
   readln(b);
  writeln('c');
   readln(c);
 x:=sqr(a-sqr(c)+b)/4*sqr(c)+b;
  if (x>b) and (x>-a)then
   writeln(x)
    else
   writeln('нет корней');
   readln;
 end.

uses 
 crt;
var
 a,b,c:integer;
 x:real;
 
 
 
 begin
 clrscr;
 writeln('введите коэф. уравнения sqrt(x+a)=c+sqrt(x-b)');
  writeln('a');
   readln(a);
  writeln('b');
   readln(b);
  writeln('c');
   readln(c);
  x:=(a-c*c+b)*(a-c*c+b)/4*c*c+b;
  if (x>b) and (x>-a) and (x>=c*c+b) and ((a-c*c+b)/2*c>0) and (c<>0) then
   writeln(x)
    else
   writeln('нет корней');
   readln;
 end.