Решите пожалуйста ** Паскале ** if case.Если введённое число положительное, то вычесть из...

Question

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

Comments

И на case можете пожалуйста решить

Answer 1

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.