СРОЧНО!Напишите задачу в паскаль.1.дано натуральное число определить сумму кубов его цифр 2. дано натуральное число определить его первую цифру 

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.