Будет 3,2 КБайта или 26214 бит.
0 1 2 3 4 5 10 11 12 13 14
_____________
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
1) в 1 кбайте= 1024 байта
в 1 мбайте=1024 кбайта
1 гигобайте=1024 мбайта.