Вычислить множество значения функций 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.