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

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