Помогите решить 1 номер, срочно, сдавать через час

program open_s;

var

y,a,b,c:real;

 begin

  writeln('Введи значение a');

  readln(a);

  writeln('Введи значение b');

  readln(b);

  writeln('Введи значение c');

  readln(c);

  y:=sqrt(a-c)-((sqr(b)+2)/c);

  write('Ответ: ',y);

end.