fork download
copy 
  1. program DrawPoints;
  2. var
  3.   x, y: integer;
  4. begin
  5.   // Пример построения простой рамки/фигуры по координатам в консоли
  6.   for y := 1 to 10 do
  7.   begin
  8.     for x := 1 to 20 do
  9.     begin
  10.       if (x = 1) or (x = 20) or (y = 1) or (y = 10) then
  11.         write('*')
  12.       else
  13.         write(' ');
  14.     end;
  15.     writeln;
  16.   end;
  17. end.
  18.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
copy 
********************
*                  *
*                  *
*                  *
*                  *
*                  *
*                  *
*                  *
*                  *
********************
https://ideone.com/I9GSB2
language:
Pascal (fpc 3.0.4)
created:
14 hours 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!