Ребята, кто шарит в паскале?

вычислите значение функции на заданном интервале с шагом h=0.5 Z=100ln(x)-ln(y) где у= 2.0; 1<=x<=4. вывод оформить в виде таблицы значений х и z.
const
h=0.5;
y=2.0;
var
x, z:real;
begin
x:=1;
while (x<=4) do
begin
z:=100*ln(x)-ln(y);
writeln(x:4:2, z:4:2);
x:=x+h;
end;
end.
такое решение сказали, что не пойдет.
Помогите решить по-другому.

вывести нужно и х, и у, и z

значения считает, программа работает. надо другой способ