Информатика дз pascal вывести все значения функции у=5* х-2 при х<=20 с произвольным шагом

Предыдущий
вопрос Следующий
вопрос

program FunctionValues;

var
x, y, step: integer;

begin
step := 3; // произвольный шаг
x := 1; // начальное значение x

writeln('x | y');
writeln('--------');

while x <= 20 do
begin
y := 5 * x - 2;
writeln(x, ' | ', y);
x := x + step;
end;
end.