Pascal:

program Task3;

var

   s, c, x, y : double;

begin

 write('Введите s: ');

 readln(s);

 write('Введите c: ');

 readln(c);

 write('Введите x: ');

 readln(x);

 y := (s + c - x) / (x * x);

 writeln('Значение y = ', y:0:2);

end.