Задача в Pascal

[Quposle]

Прошу помощи в написании программы, буду очень благодарен, кто сможет помочь!
Задание под цифрой 3

[newerow1989]

Ты бы сфоткал перед зеркалом и вверх ногами...

function f(x:real):real;
begin
   Result:=sin(x)/cos(x);
end;

const a=0;
      b=pi/4;
      m=10;
var h,x,y:real;
begin
  h:=(b-a)/m;
  x:=a;
  Repeat
     y:=f(x);
     Writeln('x = ',x:5:5,'      y = ',y:5:5);
     x:=x+h;
  Until x>b;
  Readln;
end.

Сойдет?

[Вадим Мошев]

Сообщение от newerow1989

Ты бы сфоткал перед зеркалом и вверх ногами...

Сойдет?

Селфи с заданием по программированию