Ставлю 20 ветвление плиз сделайте

Question

Ставлю 20 ветвление плиз сделайте

---

Answer 1

Var
x:integer;
begin
Writeln('x = '); readln(x);
if (x <> 0) and (x <> 5)then Writeln('y = ', 2*x/(x*(x-5)):0:5)else
Writeln('No Solution Exist');
end.