СРОЧНО!Напишите задачу в паскаль.
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.