Программа с двумя условными операторами.PASCAL 7.0

[Сержuk]

Написать на PASCAL'е
1. Разработать блок-схему алгоритма
и программу вычисления значения.





Значения x и m ввести с клавиатуры.

2. Построить блок-схему программы.
-----------------------------------------------
Мой код программы

Program A3;
Uses Crt;
Var x,m,f,z:real;
Begin
  Writeln('Ввести значение x,m');
  readln(x,m);
  if (m=3) then z:=m-0.33;
  if (
         else
  if (m=2) or (m=5) then z:=sin(m);
         else z:=ln(-m)
readln;
End.

Но она у меня не работает! что я сделал не так? как должна выглядеть программа?

[_-Re@l-_]

Вот так...

Program A3;
Uses Crt;
Var x,m,z,f:real;
Begin
  Writeln('Ввести значение x,m');
  readln(x,m);
  if m=3 then z:=m-0.33;
  if (m = 2) or (m = 5) then z:=ln(m);
  if (m<>3) and (m<>2) and (m<>5) then z:=sin(m);
  if x>5 then f:=x-5;
  if x<5 then f:=3*sqr(sqr(x));
  if x=5 then f:=cos(x);
  writeln(z:5:2);
  writeln(f:5:2);
  readln;
End.

[Сержuk]

А как еще сделать тоже самое одновременно и с f и x которая из второй системы? Т.Е. как объединить их и вывести на экран результат значений z и f?

[_-Re@l-_]

Подправил предыдущий пост, смотри вверх.

[Сержuk]

а у меня выводит только одно значение? почему так?

-Извините, все работает, спасибо большое

[_-Re@l-_]

Ещё раз...

Program A3;
Uses Crt;
Var x,m,z,f:real;
Begin
  Writeln('Ввести значение x,m');
  readln(x,m);
  if m=3 then z:=m-0.33;
  if (m = 2) or (m = 5) then z:=ln(m);
  if (m<>3) and (m<>2) and (m<>5) then z:=sin(m);
  if x>5 then f:=x-5;
  if x<5 then f:=3*sqr(sqr(x));
  if x=5 then f:=cos(x);
  writeln(z:5:2);
  writeln(f:5:2);
  readln;
End.

Выводит два значения, лично проверял...