Помогите решить пожалуйста, очень важно! ​Хотя бы помогите 1 решить,если второе не знаете

1)var a:integer;

begin

writeln('Введите число:');

read(a);

a:=(a div 10) + (a mod 10);

writeln('Сумма цифр равна: ',a);

end.

2)var a:real;

begin

writeln('Введите объем информации в битах:');

read(a);

a:=a/8/1024/1024;

writeln('Объем информации ',a,' мегабайт');

end.