Составьте алгоритм и программу в паскале 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

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

Var m: array[1..15] of real;   i: integer;   n: real;   begin  randomize;   for i: =1 to 15 do  begin  m : =random(20)-20;   if( m< 0) then  begin  m: =sqr(m);   end;