Код: Выделить всё
program talking_medved;
begin
draw_medved_bezo_rta;
repeat
draw_otkrytiy_rot_medveda;
delay(50000);
erase_rot_medveda;
draw_zakrytiy_rot_medveda;
delay(50000);
erase_rot_medveda;
until false;
end.