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

  • KGW
  • умный
2014-01-15T17:56:56+04:00
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.