Program Nastya; uses crt;

var a,b,cache,h:real;

Function Funct(x:real):real;
Begin
Funct:=Sqr(X)*Sin(Sqr(X))+1;
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите левую границу:  '); Readln(A);
Write(' Введите правую границу: '); Readln(B);Write(' Введите шаг: '); Readln(h);
Write('--------------------------------------------------------------------------------');
Writeln('|    X    |    F(x)    |');
Writeln('------------------------');

if (A > B) then
               Begin
           Cache:=A;
               A:=B;
               B:=Cache;
               end;
Cache:=A;
Repeat
Writeln('|',Cache:7:2,'  |  ',Funct(Cache):8:5,'  | ');
Cache:=Cache+h;
Until (Cache >= B);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.