Условный оператор. Оператор выбора. Pascal

[Сержuk]

Язык разработки: TurboPascal 7.0
Задание:
Разработать блок-схему алгоритма и программу вычисления значений



Вот что у меня получилось:

Program Test4;
Uses Crt;
Var m:longint; f,z,x:real;
Begin
  Clrscr;
  writeln('BBeDuTe 3Ha4eHue f,z,x');
  readln(f,z,x);
  if (x>5) then f:=x-5
           else if(x<5) then f:=3*sqr(sqr(x))
                        else f:=cos(x);
  case m of
  3:z:=x-0.33;
  5,2:z:=ln(abs(-m));
  else
  z:=sin(m)
  end;
  writeln('f=',f:5:3);
  writeln('z=',z:5:3);
End.

В результате подстановки рандомных чисел, значение переменной z=0(!)
Я знаю что это ошибка, так как значение всегда должны быть разными!

Примечание: В программе обязательно(!) должны быть case и два else (и не более!)

[Сержuk]

Вроде бы исправил, работает))) но правильно ли? Кто-нибудь проверьте новичка?

Program Test4;
Uses Crt;
Var m:longint; f,x,z:real;
Begin
  Clrscr;
  writeln('BBeDuTe 3Ha4eHue x,m');
  readln(x,m);
  if x>5 then f:=x-5
           else if x<5 then f:=3*sqr(sqr(x))
                             else f:=cos(x);
  case m of
  3: z:=x-0.33;
  2,5: z:=ln(abs(-m));
  else z:=sin(m);
  end;
       writeln('f=',f:5:3);
       writeln('z=',z:5:3);
readln;
End.

[Stilet]

А ты запусти программу - сработает, значит правильно.
А если правильно сработает - зачет.

[Риндера]

Не вижу ровным счетом никакого смысла в записи, типа

abs(-m)

Мож кто пояснит?)

[alex_fcsm]

Этот вопрос задай составителю задачи(см. картинку)