Программа в Паскале y=0,4x²-1/x, если х от 2 до 10. Пожалуйста помогите.

спасибо

program xy;uses CRT; var x:integer;     y:real;begin clrscr; for x:=2 to 10 do begin  y:=0.4*sqr(x)-1/x;  writeln(y:5:2); end;end.