program RabbitsCells;
varrabbits, cells: integer;
beginwriteln('Enter the number of rabbits: ');readln(rabbits);
cells := rabbits div 3;
writeln('Number of fully filled cells: ', cells);end.
program RabbitsCells;
var
rabbits, cells: integer;
begin
writeln('Enter the number of rabbits: ');
readln(rabbits);
cells := rabbits div 3;
writeln('Number of fully filled cells: ', cells);
end.