Задача по паскалю. Найти сумму цифр года и числа в строке «16 марта 1999 года».

1
ребят! Нужна полностью программа!!!

Ответы и объяснения

2014-03-09T13:36:42+04:00
Var
a:string;
b:integer;
begin
a:='16 марта 1999 года';
b:=(ord(a[1])-ord('0'))+(ord(a[2])-ord('0'))+(ord(a[10])-ord('0'))+(ord(a[11])-ord('0'))+(ord(a[12])-ord('0'))+(ord(a[13])-ord('0'));
writeln(b);
end.
плиз, перерешайте задачу!
он только 1 раз выводит....
ну так ответ не верен
1+6+1+9+9+9=35
просто он выводит несколько раз 35 в столбик