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.
begin
If A[i]<0 then
A[i]:=A[i]*6;
End;
И потом выводишь массив на экран.