<span>var a,s:integer;
begin
write('a = ');
readln(a);
s:=(a div 10)+(a mod 10);
writeln('s = ',s);
end<span>.
Пример:
</span><span>a = 25
s = 7</span></span>
3 задачи за 8 баллов?) Не цените вы мой труд, дорогуша)
В приложениях смотрите - названия программ соответствуют их номерам.