Составить блок схему. вычислить функцию f=x^2, если x< 0, f= корень из x, если x> 0, f=0, если x=0.

Program znanija_com;
var
   temp : real;
begin
writeln('В ведите Х');
readln(temp);
if temp < 0 then writeln('F = ', temp * temp)
  else
    if temp = 0 then writeln('F = 0')
      else writeln('F = ', sqrt(temp));
readln();
end.