1.
var
a, s, cifra: integer;
begin
s:= 0;
writeln('Введите натуральное число');
readln(a);
while a > 0 do
begin
cifra:= a mod 10; //Определяем очередную цифру числа
s:= s + cifra * cifra * cifra; //Прибавляем к значению s цифру в кубе
a:= a div 10; //целочисленное деление числа на 10 (отсекаем текущую цифру)
end;
writeln('Сумма кубов цифр числа: ', s);
end.
2.
var
a: integer;
begin
writeln('Введите натуральное число');
readln(a);
while a > 9 do {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой}
a:= a div 10;
writeln('Первая цифра числа: ', a);
end.