Program Olya; uses crt;

var y,x,xn,xk,h:real;
    i,n:byte;

Function F(x:real):real;
Begin
F:=Sqr(X); {F(x)=x^2}
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите левую границу:  '); Readln(Xn);
Write(' Введите правую границу: '); Readln(Xk);
Write(' Введите шаг: '); Readln(h);

n:=Round(((Xk-Xn)/h)+1); {Вычислим кол-во шагов по формуле...}

{Выведем заголовок таблички...}
Write('--------------------------------------------------------------------------------');
Writeln('|    X    |    Y    |');
Writeln('---------------------');

X:=Xn; {Начальное значение...}

for i:=1 to n do
    Begin
    Y:=F(X);
    Writeln('|',X:8:2,' | ',Y:8:5,'|');
    X:=X+h; {Следущий...}
    end;

{Закроем табличку...}
Writeln('---------------------');
Writeln('|Сержант (с) 2014 г.|');
Write('--------------------------------------------------------------------------------');
Write('                Для выхода из программы нажмите клавишу "Enter"                 ');
Write('--------------------------------------------------------------------------------');
Readln;
end.