блок-схему составить надо

Ответы и объяснения

2014-01-15T12:55:09+00:00
Var x:integer; Z:real;
begin
writeln('введите х');
readln(x);
if x>=4 then Z:=x-3;
if (0<x) and(x<=4) then Z:=sqrt(x+1);
if x<0 then Z:=x*x;
writeln(Z);
end.