var a,c,n,i,p:real;beginreadln(c);a:=sin(c)-2/(sqr(c)*c);if aamp;gt;=0 then

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