UC知道跪求一个Pascal程序
来源：百度知道 编辑：UC知道 时间：2024/06/01 15:29:07
输入“2”则输出用@号拼成的“请原谅我”
program print;
uses crt;
var a:longint;
begin
read(a);
clrscr;
if a=1 then begin
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' * * ');
writeln(' * ************* * ');
writeln(' * * * ***** ');
writeln(' ****** * * ****** * ');
writeln(' * ******* * * * ');
writeln(' * * * * * ');
writeln(' * * * ** * ******* ***** ');
writeln(' * * * * * * * * * * ');
writeln(' * * * * * * * * * ');
writeln('