Задано натуральные числа от 10 до N. Для натурального числа найти
первую цифру и сумму его цифр.Решить на языке PascalABC.NET

var N,sum,k: integer;begin sum:=0; WriteLn('Введите N'); readln(N); while N <=9 do begin writeln('Введите корректное число (больше или равное 10)'); readln(N); end; while N >=10 do begin k:= N mod 10; N:= N div 10; sum:= sum + k; end; sum:=sum + N; write('Первая цифра числа '); writeln(N); write('Сума цифр числа '); writeln(sum); end.