Вычислить множество значения функций y=f от x на промежутке x=[a; b] с шагом dx. решить на обычном паскале, прога должна быть структурированной

Program z7;  Var a,b:integer; dx,y,x:real;Begin  Write('Введите начало отрезка а = '); readln(a);  Write('Введите конец отрезка b = '); readln(b);  Write('Введите шаг dx = '); readln(dx);    x:=a;  writeln(' X       Y');  while x<=b do  begin    y:=x;    writeln(x,'     ',y);    x:=x+dx;  end;End.