PersonalCorpus 版 (精华区)

206335 13:46:04 6 Jun 2002
Bozhang,HIT,P.R.China 1059 Pascal Accepted 0.02 sec 49K

var
    n,i:integer;
begin
    readln(n);
    writeln(0);
    for i:=1 to n do begin
        writeln('X');
        writeln('*');
        writeln(i);
        writeln('+');
    end;
end.