Алгоритм определения месячной платы за расходы электроэнергии

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так