program z3_6;
var a,b,outs,k:integer;
    f1:boolean;
begin;
write('Введите длину и ширину стены: ');
readln(a,b);
write('Введите цену рулона (в йоркширских тугриках): ');
readln(k);
if a<b then swap(a,b);
write('Допускается ли резать рулон обоев? (true/false): ');
readln(f1);
if f1=true then
 begin;
 if (a*b)mod 12 = 0 then outs:=a*b div 12
 else outs:=a*b div 12 + 1;
 end
else
 begin;
 if (b*12>a) then outs:=b
 else if a mod 12 = 0 then outs:=a div 12
      else outs:=a div 12 + 1;
 end;
writeln('Потребуется ', k*outs, ' йоркширских тугриков');
end.

program z3_4;
var ins, outs, k1:integer;
begin
write('Введите число: ');
readln(ins);
k1:=ins;
while ins>0 do
 begin;
 outs:=outs+ins mod 10;
 ins:=ins div 10;
 end;
writeln('Cумма цифр числа ',k1,' равна ',outs);
end.