program DrawPoints;
var
  x, y: integer;
begin
  // Пример построения простой рамки/фигуры по координатам в консоли
  for y := 1 to 10 do
  begin
    for x := 1 to 20 do
    begin
      if (x = 1) or (x = 20) or (y = 1) or (y = 10) then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
end.