Составить программу и блок-схему

var x,f:real;
begin
write('Введите x: ');
readln(x);
if x>1 then f:=x*x-x else f:=x*x-sin(x);
writeln('F(x)=',f)
end.

m = [-10, -9 .. 10]
f(x) = x*x - (if (x > 1) then x else sin(x))
main = print(map f(m))