Задано натуральные числа от 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);