Задайте форматированный вывод для x всего 5 знаков, из них после запятой — один, для y всего восемь знаков, из них после запятой — два.
function F(x: double): double;
begin
F := x*x - 1;
end;
var
x: double;
begin
x := 0.1;
while x < 20.0001 do begin
writeln( 'x: ' , x :5:1 , ' y: ' , F(x) :8:2 );
x := x + 0.1;
end;
end.