HELP ME!
4.4 Допишите команду для определения функции у= 1/х при известном х:
4.5. Напишите программу определения значения функции
f(х) = 0 при х < или = 2 и х > или равно 5 ,
2х при 2 < х < 5
с использованием составного условия.

var  x, y: real;begin  readln(x);  if x = 0 then     writeln('На ноль делить нельзя!')  else begin    y := 1 / x;    writeln('1/'+x+'='+y);  end;end.==============================program task;var  x, f: real;  begin  readln(x);  if (x > 2) and (x < 5) then f := 2 * xelse f := 0;  write(f);end.