Паскаль.для заданного натурального числа n рассчитать сумму: а)cosx+cos x2 +cos x2++cosxn б)sin1+sin1,1+sin1,2++sin2 в)1! ++3! ++n!

1)
  var
 n,i:Integer;
 sum:Real;
Begin
 Read(n);
 for i:=1 to n do
  sum:=sum+cos(i);
 Writeln(sum);
end.