Question

Кто что может,помогите

Answer 1

1)program z1;
var  y, x: real;
begin
 writeln('Введите x');
readln(x);
 y := (1 /(3.5-x));
writeln('Значение функции=',y);
end.