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. Результат напечатать.