найдите наименьшее значение выражения 1-2 sin t

Определите, что будет напечатано в результате выполнения следующего алгоритма:

Var m,k: integer;

Begin

m:=0;

for k:=1 to 10 do

m:=m + k;

write(m);

End.

Формула удельной теплоты сгорания топлева?:)