Program cb;
var
n, i: integer;
begin
write('n = ');
readln(n);
for i := 1 to n do
writeln(i * i * i);
end.
4 часа = 4 * 60 минут = 240 минут
Всего слов 240 * 160 = 38400 слов
В каждом слове 6 символов, всего символов = 38400 * 6 = 230400
Если на 1 символ отводить 1 байт, то получим
230400 байт = 230400/1024 Кб = 225 Кб
Ответ. 225 Кб
Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.