Есть специальный калькулятор на компьютере либо в интернете
Http://yaforyou.ru/?q=%D0%AD%D0%BA%D1%81%D0%BF%D0%BB%D1%83%D0%B0%D1%82%D0%B0%D1%86%D0%B8%D0%BE%D0%BD...
Var s : real;
Begin
S:= (1*14-1/3)*52;
Write(s :5:6);
end.
Смешно, конечно, но выходит так. Просто выводишь определённую формулу, вот и все.
var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.