{1-3 7-3 4-4 2-5 3-5 5-5 0-6 6-6 9-6 8-7}
{Напишите программу которая для заданного числа 
определит сколько понадобится спичек чтобы выложить все цифры числа}

var n : string;
var m, i : integer;

begin
write ('Введите число -->');
read (n);
m := 0;
for i := 1 to Length (n) do
case n[i] of
  '1' : m :=m+3;
  '7' : m :=m+3;
  '4' : m :=m+4;
  '2' : m :=m+5;
  '3' : m :=m+5;
  '5' : m :=m+5;
  '0' : m :=m+6;
  '6' : m :=m+6;
  '9' : m :=m+6;
  '8' : m :=m+7;
end;

write (m);


end.