program literki; var a,suma,losowa: integer; odp: char; procedure literaA; begin writeln(' * '); writeln(' * * '); writeln(' * * * * * '); writeln(' * * '); writeln(' * * '); writeln; end; begin literaA; readln; end.