Var a,c,n,i,p: real; begin readln(c); a: =sin(c)-2/(sqr(c)*c); if a> =0 then writeln(a); else for n: =1 to 28 do p: =(1+c)/n; writeln(p); end. в чем ошибка? дано с. вычислить: а = sinс- . если а ≥ 0, то напечатать а. если а < 0, то вычислить р = , где n – натуральное число, изменяющееся от 1 до 28. результат напечатать.
