Составить программу для вычисления значения функции f(х). Если х=r, то f=r*х. Где если sinх>=0, то r=sqr(х) иначе если sinх<0, то r=|х|. - Pascal(Паскаль)

uses crt;

var
  r, x, f: real;

BEGIN
  writeln('введите x');
  readln(x);
  if sin(x) >= 0 then
    r := sqr(x)
  else
    r := abs(x);
  if x < r then
    f := abs(x)
  else
    f := r * x;
  write('F(x)=', f:6:1);

end.