begin
var Пауков := 0;
while Пауков < 9 do
if (37 - 4 * Пауков) mod 3 = 0 then
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end.
begin
var Пауков := 0;
while Пауков < 9 do
begin
if (37 - 4 * Пауков) mod 3 = 0 then
begin
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end;
end.