Question

Паскаль для начинающи. Нужно нарисовать рисунок ( не сложный , но и не простой)
Что то типо этого :
begin
writeln (' *');
writeln (' ***');
writeln (' *****');
writeln (' *******');
writeln (' *******');
writeln (' * * *');
writeln (' *******');
writeln (' *******');
writeln (' * * *');
writeln (' *******');
end.

Answer 1

begin

writeln(' 00000000 ');

writeln(' 0000 0000');

writeln(' 0000 0000');

writeln(' 0000 0000 0000000');

writeln(' 0000 0000 0000 0000 ');

writeln(' 0000 0000 0000 0000 ');

writeln(' 0000 0000 0000 0000 ');

writeln(' 00000000 0000000 000');

writeln(' 0000 ');

writeln(' 000 ');

writeln(' 000 000 ');

writeln(' 00000 000 ');

writeln(' 000 000 ');

writeln(' 000 000 ');

writeln(' 0000 0000 ');

writeln(' 00000 00000 ');

writeln(' 000000 000000 ');

writeln(' 00000000 000000 ');

writeln(' 00000000000000000000 ');

writeln(' 0000000000000000 ');

writeln(' 00000000 ');

writeln();

end.

begin

writeln('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.><((((o> ');

writeln('¯ `•.¸¸.><((((o> ¯ `•.¸¸.><((((o> ');

writeln();

writeln('¯ `•.¸¸.><((((o> ¯ `•.¸¸.><((((o> ');

writeln('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.><((((o> ');

writeln();

end.