Напечатать таблицу значений функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде ( с циклом for, ): (( 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950 1.0000 0.8415 0.5403 заранее

Var
X:integer;
Begin
WriteLn('X        Sin(X)   Cos(X)');
For X:= 0 to 10 do
    WriteLn((X/10):0:4,'   ',Sin(X/10):0:4,'   ',Cos(X/10):0:4);
End.