19 lines
705 B
ObjectPascal
19 lines
705 B
ObjectPascal
|
uses Мозаика;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Window.Title := 'цыплёнок';
|
|||
|
|
|
|||
|
|
НарисоватьРяд(П*9+кк2*2);
|
|||
|
|
НарисоватьРяд(П*9+ж*2+жк2);
|
|||
|
|
НарисоватьРяд(П*9+ж*2+ч+кк2);
|
|||
|
|
НарисоватьРяд(П*6+жк2+П*2+жк4+ж+жк3);
|
|||
|
|
НарисоватьРяд(П*5+жк2+ж+жк2+П*2+ж);
|
|||
|
|
НарисоватьРяд(П*5+ж*6);
|
|||
|
|
НарисоватьРяд(П*5+жк4+ж*5);
|
|||
|
|
НарисоватьРяд(П*6+жк4+ж*3+жк3);
|
|||
|
|
НарисоватьРяд(П*3+бк1+бк2+П*2+ж+П+ж);
|
|||
|
|
НарисоватьРяд(П*3+б*2+П*2+о+п+о);
|
|||
|
|
НарисоватьРяд(П*3+бк4+бк3+П*2+о+ок2+о+ок2);
|
|||
|
|
НарисоватьРяд(З*15);
|
|||
|
|
end.
|