Составьте алгоритм и программу в паскале s=sinx+sinx2+sinx3+

// pascalabc.net 3.2, сборка 1399 от 08.03.2017 // внимание! если программа не работает, обновите версию! begin   var x: =readreal('x=');   writeln('s=',range(1,7).select(i-> sin(power(x,) end. пример x= 2.17 s=-2.20745116250773

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.