программы с циклом FOR (Тема 7) (5)

Program TablZnach;
const pi: real = 3.14159;
var i: integer; x, y, k: real;
begin

Writeln('X - количество радиан | Y = sin (x) | K = cos (x) ');

  for i := 25 downto 1 do begin
    x := (i * pi /180);
    y := sin(x);
    k := cos(x) ;
    writeln(X:6,  Y:12:2,  K:16:2)
  end;

end.