)) составить алгоритм,печати,таблицы значений,функций y=5x-2 на отрезке [1; 20] с шагом h=2

Напишу программу

Program pr;
uses crt;

Var x, y:real;

Begin
x:=1;
While x<=20 do
          Begin
               y:=5*x-2;
Writeln('x=', x:6:2, 'y=', y:6:2);
x:=x+2;
          end;

readln;
end.