Вычисление функции на отрезке [a,b) с шагом h

var
f:real;
a,b,h:integer;
begin
Write('a=');
 readln(a);
Write('b=');
 readln(b);
 Write('h=');
 readln(h);
while a<b do
begin
f:=sin(a)+sin(a)/cos(a);
write('F(',a,')=');
writeln(f:4:2);
a:=a+h;
end;
readln;
end.

program Z;
uses crt;                                                             { Включение дополнительных библиотек }
var                                                                      
    x,y,a,b,h:real;                                         { Указание переменных и их типов }
begin
  clrscr;                                                           { Очистка экрана }
  write ('a=');                                               { Ввод значений переменных}
  read (a);                                   
  write ('b='); 
  read (b);
  write ('h='); 
   read (h);
  x:=a;                                                  { Присваивание переменной «х» начального значения }
  writeln ('_________________');               { Оформление таблицы }
  writeln ('|  x    |   y    |');
 repeat
     begin
     y:=1/2*cos(x)/(sin(x/4)+4);                                            { Нахождение переменной «y» }
     write('| x=', x:4:1); write ('|'); write(' y=', y:4:1); writeln('|');{ Вывод переменных «х» и «у» }
     writeln('-----------------');                
     x:=x+h;                                   { Прибавка шага }
     end;
 until x>b;
 repeat until keypressed;              { Задержка экрана }
end.

uses crt;
const l='---------------------';
      s='|    x    |    y    |';
var x,y,a,b,h:real;
 
begin
  clrscr;
  write ('a='); read (a);
  write ('b='); read (b);
  write ('h='); read (h);
  x:=a;
  writeln (l);
  writeln (s);
  writeln (l);
 while x<b do
     begin
     if cos(x)=0 then writeln('|',x:7:2,'|':3,'-':5,'|':5)
        else
        begin
        y:=sin(x)+sin(x)/cos(x);
        writeln('|',x:7:2,'|':3,y:7:2,'|':3);
        end;
     x:=x+h;
     end;
 writeln(l);
 readln;
end.