Найти значения функции у= х2-7х, при х=5; 4,9; 4,8; 4,7; 4,6; … 0. паскаль

Var x, y: real;
begin 
    x := 5; 
    writeln('x', #9, 'y'); 
    while(x >= 0) do begin   
        write(x:0:1);   
        y := sqr(x) - 7*x;   
        write(#9, y:0:2);   
        x := x - 0.1;   
        writeln; 
    end;
end.