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

 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
-----------------------------------