fork download
copy 
  1. var i,j,s:integer;
  2. begin
  3.     write('╔');
  4.     for j := 1 to 9 do
  5.         write('════╦');
  6.     writeln('════╗');
  7.     for i := 1 to 10 do begin
  8.         for j := 1 to 10 do
  9.             write('║', i*j:4);
  10.         writeln('║');
  11.         if i < 10 then begin
  12.             write('╠');
  13.             for j := 1 to 9 do
  14.                 write('════╬');
  15.             writeln('════╣');
  16.         end else begin
  17.             write('╚');
  18.             for j := 1 to 9 do
  19.                 write('════╩');
  20.             writeln('════╝');
  21.         end;
  22.     end;
  23. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
╔════╦════╦════╦════╦════╦════╦════╦════╦════╦════╗
║   1║   2║   3║   4║   5║   6║   7║   8║   9║  10║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   2║   4║   6║   8║  10║  12║  14║  16║  18║  20║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   3║   6║   9║  12║  15║  18║  21║  24║  27║  30║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   4║   8║  12║  16║  20║  24║  28║  32║  36║  40║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   5║  10║  15║  20║  25║  30║  35║  40║  45║  50║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   6║  12║  18║  24║  30║  36║  42║  48║  54║  60║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   7║  14║  21║  28║  35║  42║  49║  56║  63║  70║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   8║  16║  24║  32║  40║  48║  56║  64║  72║  80║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║   9║  18║  27║  36║  45║  54║  63║  72║  81║  90║
╠════╬════╬════╬════╬════╬════╬════╬════╬════╬════╣
║  10║  20║  30║  40║  50║  60║  70║  80║  90║ 100║
╚════╩════╩════╩════╩════╩════╩════╩════╩════╩════╝
https://ideone.com/QoqRBj
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!