4 Кб = 1024 * 4 байт = 1024 * 4 * 8 бит = 32768 бит
Ответ: 32768
Var
h0, m0, h1, m1, h2, m2: integer;
begin
readln(h0, m0, h1, m1);
m0 += h0 * 60;
m1 += h1 * 60;
m2 := m0 + m1;
h2 := (m2 div 60) mod 24;
m2 := (m1 + m0) mod 60;
h0 := h2 div 10;
h1 := h2 mod 10;
m0 := m2 div 10;
m1 := m2 mod 10;
write(h0, h1, ':', m0, m1);
end.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Average.Println
end.
=A9+1 (А9 - имя ячейки, где лежит первый х)
=1/2*(A9*A9)-4 (А9 - имя ячейки, где лежит х)