мне скоро это здавать умоляю

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.

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

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

5`120`000 бит =  640 000 байт = 625 кб

program av;

var a,b,c,d,e,f: integer;

begin

writeln('введите 3 числа');

readln(a,b,c);

if (a< b) and (a< c)

then a: =2*a*b*c

else 

if (b< a) and (b< c)

then   b: =2*a*b*c 

else  c: =2*a*b*c;

writeln(a,' первое число',b,'второе число',c' третье число') ;

end.