Задано натуральные числа от 10 до n. для натурального числа найти первую цифру и сумму его цифр. решить на языке pascalabc.net

в вашем условии максимальное число н. то есть оно может быть как двухзначное так и десяти. я сделаю для двухзначного:

var a,a1,a2,s: intger;

read (a);

a1: = a div 10;

a2: = a mod 10;

sum: =   a1+a2;

writen (a1,sum);