program Akirjutamine; procedure printA; begin writeln(' * '); writeln(' * * '); writeln(' * * '); writeln(' ******* '); writeln('* *'); end; begin printA; printA; end.