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

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.