ac1059.pas

来自「Ural(Acm.timus.ru)题解 By Maigo大牛」· PAS 代码 · 共 14 行

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