Напишите программу которая для заданного числа определит сколько понадобится спичек чтобы выложить все цифры числа входные данные 1 239 результат 2 16

См. вложенный файл, программа в нём 

var a: array[0..9] of integer:=(6,2,5,5,4,5,6,3,7,6);
    i,s: integer;
    st: string;
begin
   write('число: ');  readln(st);
   s:=0;
   for i:=1 to length(st) do
   s:=s+a[ord(st[i])-48];
   writeln('число спичек = ',s);
end.