помогите исправить задачу

[Maserati]

Помогите доделать программу.
Что нужно поменять,что бы можно было вводить промежуток от 0 до 2
с шагом 0,5

program zadanie3;
var a,b,c,h:integer;
x,y,z,u:real;
function f(g:real):real;
begin
f:=(sqrt(3/(1+g+g))/(1-g*g*g));
end;
begin
writeln('Введите b,c,h');
readln(b,c,h);
for a:=b to c do
begin
x:=f(a);
y:=f(a*a);
z:=f(sin(a));
b:=b+h;
u:=sqr(x+y)/z;
writeln('Ответ ',a);
end;
END.