delphi 显示简单图形

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