program KR_v6_v2;
var
a, d, s, x: real;
begin
// Ввод исходных данных
writeln('Введите значения a, d, s:');
readln(a, d, s);
// Вычисление значения выражения
x := (a + d) / (a + s * s);
// Вывод результата на экран
writeln('Результат x = ', x:0:2);
end.
Ответ: Необходимо ввести значения переменных a, d, s и запустить программу на языке Pascal.