Составьте таблицу значений функции y=5x-2 на отрезке 1: 20 с шагом b=0,5

Var   x,y:real;
begin
x:=1;
writeln('X':2,'Y':6);
while x<=20 do
  begin
  y:=5*x-2;
  writeln(x:3:1,y:6:1);
  x:=x+0.5
  end
end.