Решите пожалуйста на Паскале
На 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.