Программа и блок-схема

[Rmv]

Запишите оператор, в результате которого будет происходить вычисление функции при указанных условиях:

Нужно написать программу и нарисовать блок-схему к ней.

Зачет через 2 часа, помогите плизззз!
Спасибо!

[Hacker19_90]

(х2+у2) 1

знак пропущен
ну я так думаю что это меньше или равно тогда

program example;
uses crt;
var
    x2, y2, z: real;
begin
    clrscr;
    writeln ('Enter 2 numbers');
    readln (x2, y2);
    if (x2 + y2) > 1 then z := 0.5
    else z := x2 + y2;
    writeln (z:4:3);
    ReadKey;
end.

[Rmv]

Да условия вообще не верные.
Вот правильные:

[Zer0]

program example;
uses crt;
var
    x, z: real; d:boolean;
begin
    clrscr;
    writeln ('Enter x');
    readln (x);
    d:=true;
    if (x >= -0.5) and (x<=0) then z := sin(x)
    else if (x>0) and (z<=0.5) then z:=cos(x)
    else begin
    d:=false;
    writeln ('Net tekogo Z');
    if d then writeln (z:4:3);
    ReadKey;
end.

[Rmv]

Аблок-схему можно нарисовать, если не сложно...Я просто в этом вообще не шарю...