Пожалуйста посчитайте пожалуйста с третьей задачей

Var
   x:integer;
   C,S:real;
Begin
S:=0;
WriteLn('аргумент      слагаемое');
For x:= 1 to 6 do
    Begin
    if x mod 2 = 0 then C:=Cos(x/2)
    else C:=Sin(x/2);
    WriteLn('  ',x/2:0:1,'           ',C:0:2);
    S:=S+C;
    End;
WriteLn('S = ',S:0:2);
End.