На столько хватило времени.
Еще можно при помощи макросов автоматизировать ведение базы до 60000 записей
Program name;
var
a,b:integer;
begin
//Переменная B является сложным процентом за год
b:=0.24;
а:=10000*b;
a:=a+10000;
writeln('Остаток вклада за один год:',а);
а:=0;
b:=0,48;
a:=10000*b;
a:=a+10000;
writeln('Остаток за второй год:',a);
end.
Если считать, что текст написан в 8-битном формате то кол-во символов(включая пробелы) умножаем на 8. Если Unicode, то то же самое но умножаем на 16. Результат получаем в битах.
1 случай 27*8= 216 бит = 216/8 байт=27 байт
2 случай 27*16 = 432 бит = 432/8 байт = 54 байт