Помогите написать программу на Паскале для:x^2+4=0

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

var

   x0, xk, dx, x: real;

function f(x: real): real;

begin

   f := x * x + 4;

end;

begin

   write('Введите просвет и шаг ([a,b] h) ');

   readln(x0, xk, dx);

   x := x0;

   writeln(' x ':10, ' ', ' f(x) ':10);

   repeat

       writeln(x:10:3, ' ', f(x):10:3);

       x := x + dx;

   until x gt; xk;

end.