Question

Срочно напишите программу!

Answer 1

program function;
var x, z, y: real;
begin
writeln ('Введите x') ;
readln (x) ;
z:=(-5)*sqrt(x+sqrt(y));
writeln ('Значение функции равно z'=z);
end.