Вычислить значение функции 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;
  ReadKey
end.