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

Question

вычислите значение функции на заданном интервале с шагом 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

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

Asemoka · Accepted Answer

может через цикл надо а не через while. Ну это вроде и есть другой способ - через цикл for