решить задачи(906,8855,8856) e-olymp Паскаль

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

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

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

* 60 / 16 =

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр