var a:integer;
begin
readln(a);
if (a=0) or (a=9) then
write('Выражение не имеет смысла')
else
write('y=',5/(a*(a-9)));
end.
Объяснение:
