Розвязати задачу за до блок схеми Завдання. Квартплата
В об'єднанні співвласників багатоквартирного
будинку здійснюються такі виплати:
0,36 грн/м2 – за користуванням ліфтом,
0,12 грн/м2 – за вивіз сміття з особи,
5 грн/м2 — формування ремонтного фонду,
2,15 грн/м2 – квартплата треба​

Не самый рациональный метод решения, но как говорится чем смог тем

var a,b,c,x,kc,kn,k1,k2:integer; 
begin 
kc:=1; 
kn:=1; 
k1:=0; 
k2:=0; 
a:=0; 
b:=0; 
writeln('Введите число x'); 
read(x); 
while x>0 do begin 
c:=x mod 10; 
if c mod 2=0 then begin 
inc(k1); 
a:=a+c*kc; 
kc:=kc*10; 
end; 
if c mod 2<>0 then begin 
inc(k2); 
b:=b+c*kn; 
kn:=kn*10; 
end; 
x:=x div 10; 
end; 
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); 
writeln(a,' ', b); 
end. 

Открываешь у себя на ПК Excel, вводишь то, что тебе дано(числа; формулы, перед которыми необходимо ставить знак равенства). Логично, что формулу из ячейки D1 вписать(скопировать) в D2, из С1 в С2. Смотришь, что получилось в ячейке D3. Твой ответ - 14.

У меня на месте ячеек, где у тебя в заданы формулы, уже стоят числа - произошло вычисление по данным в таблице через эти формулы. К примеру: А1*А2 - значит надо умножить то, что в ячейке А1 на то, что в ячейке А2. Итого 2*3=6 - в ячейке D1 стоит число 6.

*См. скриншот.