显示简单图形

program Project1;

{$APPTYPE CONSOLE}
begin
  Writeln('   |   |   ');
  Writeln('  x|   |   ');
  Writeln('---|---|---');
  Writeln('   | 0 |x  ');
  Writeln('---|---|---');
  Writeln('   | 0 |   ');
  Writeln('   |   |   ');
  Readln;
end.

转载于:https://www.cnblogs.com/del/archive/2007/11/22/968762.html