Построить таблицу для функции y=ax+b где x принимает значение 0,5; 1; 1,5; 2; 2,5; 3 паскаль while

Const
dx=0.5; {шаг изменения x}
var
y,a,x,b:real;
begin
x:=0.5; {начальное х}
readln(a,b);
      while x<=3 do
            begin
               y:=a*x+b;
               writeln('x: ',x:4:2,'  y:  ',y:4:2);
               x:=x+dx;
            end;
end.