Разработать блок-схему

[Shouldercannon]

Помогите, пожалуйста, сделать следующую лабораторку.
Рассмотрю все варианты

[GetMax]

Begin
    ....
    if (a < x) and (x < b) then z := cos(x)
    else
    if (x <= a) then z := exp(x / 10)
    else
    if (x >= b) then z := exp(-b * ln(5));

    Writeln(z :6:4);
    if (m = 1) or (m = 9) then y := 1 * 1
    else
    if (m <> 0) and (m <> 1) and (m <>9) then y := 1 - m
    else
    if (m = 0) then y := 2*a;

    Writeln(y:6:4);
End;

[Mad_Cat]

1 пишем код на паскале
2 ищем fceditor download
3 создаем в нем по коду блок схему
4 меняем "read" на "ввод","write" на "вывод",":=" на "="
5 если bmp | jpg устраивает сохраняемся
6 если нет перерисовываем в нужный редактор
7 наслаждаемся проделанной работой