Решить 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.