Вычислить множество значения функций 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 xlt;=b do  begin    y:=x;    writeln(x,     ,y);    x:=x+dx;  end;End.