Помогите написать программ ** Паскале под номером 6, пожалуйста

Question

Помогите написать программ на Паскале под номером 6, пожалуйста

---

Answer 1

 var a,b,h,x: real;
begin
  a:=0; b:=1.0;
  h:=0.1; x:=a;
  writeln('x   ':6,'sin(x)':10,'cos(x)':10);
  writeln('---------------------------');
  repeat
    writeln(x:5:4,sin(x):10:4,cos(x):10:4);
    x:=x+h;
  until x>b;
  writeln('---------------------------');
end.
 
     x            sin(x)    cos(x)
-----------------------------------
0.0000    0.0000    1.0000
0.1000    0.0998    0.9950
0.2000    0.1987    0.9801
0.3000    0.2955    0.9553
0.4000    0.3894    0.9211
0.5000    0.4794    0.8776
0.6000    0.5646    0.8253
0.7000    0.6442    0.7648
0.8000    0.7174    0.6967
0.9000    0.7833    0.6216
1.0000    0.8415    0.5403
-----------------------------------