This error appeared while I was doing a simple program, really need help to fix it. Thank you!!
Program New_1;
Uses Crt;
Var x, F:Real;
Begin
Clrscr;
Write('Type x='); Readln(x);
If 0<x<=1 then
F:=4*Sqr(x)-5*x+1
Else{x<=0 or x>1}
F:= Abs(x-2)/3*(sqr(x)+1);
Writeln('F(x)=', F); Readln
End.