Дано действительное число a. Вычислить f(a) если F(x)={0 при x<=0; x при 0

program Project2;
 
var x:real;
begin
   Write('vvedi x=');
   ReadLn(m);
if x<0 then WriteLn('f(x)=',0);
if (x>0) and(x<=1) then WriteLn('f(x)=',x);
if x>1 then WriteLn('f(x)=',x*x*x*x);
   ReadLn;
end.