Вычислить значение функции Y=X^2-5x+8, где X принадлежит интервалу (-5;5). В написать это в программе ПАСКАЛЕ!!!!!

uses Crt;var  x,y:real;begin  ClrScr;  x:=-5;  while x<5 do  begin     y:=sqr(x)-5*x+8;     Writeln(x:3:1,y:7:2);     x:=x+0.1  end;  ReadKeyend.