procedure foo(n: integer; k: integer := 0);
begin
if n = 0 then Print(k = 4)
else foo(n div 10, k + 1)
end;
var N := ReadInteger();
foo(N)
end.
1 байт=8бит=>24/8=3 байт
Прислів"я.
Більше діла - менше слів.
Маленька праця краще за велике безділля.
Праця чоловіка годує, а лінь марнує.
Хочеш більше знати-треба менше спати.