Question

составить блок схему алгоритма нахождения числа z

Answer 1

var z,x:integer;
begin
readln(z);
if x>=4 then writeln(x-3);
if x<0 then writeln(sqr(x));
if (x>0) and (x<=4) then writeln(sqrt(x+1));
readln;
end.