Найти значение y=3/x-5 составить ** до программу по информатике

Question

Найти значение
y=3/x-5
составить на до программу по информатике

Answer 1

Program pr;
var x:real;
k:real;
begin 
writeln('Введите значения x'); 
 readln(x); 
 k:=3/x; 
 x:=k-5; 
writeln('ответ ',x);
end.

Comments

переменная в которой хранится промежуточное действия вычисления