Решите на паскале на if case.если введённое число положительное, то вычесть из него 5, если равно нулю, то прибавить 20, во всех остальных случаях разделить на 6

Var
  n:real;
begin
  Write('Введите число: ');
  Readln(n);
  if n>0 then n:=n-5
  else if n=0 then n:=n+20
  else n:=n/6;
  Writeln('n=',n)
end.