Пишем первую программу (PascalABC.Net)

В отличие от Visual Basic, нам достаточно при помощи соответствующего оператора задать размеры автоматически открытого графического окна, чтобы на нем уместились оба рисунка ‒ исходный и результирующий. Соответствующий текст достаточно набрать в основной части окна транслятора (рис. 7).

Текст программы (с пояснениями):

uses GraphABC;      // подключение модуля для работы с графикой

var p1: Picture;    // первый рисунок
    p2: Picture;    // второй рисунок
    name : string;  // имя файла
    w,h : integer;

begin
  SetWindowSize(800,600);  // задать размеры окна 800х600 пикселей
  write('Имя графического файла: ');
  read(name);       // ввести имя графического файла формата BMP
  writeln(name);
  p1 := Picture.Create(name);  // создать графический объект
                               // из указанного графического файла
  p1.Draw(0,100);              // отобразить этот рисунок в окне

  w := p1.Width;               // получить ширину рисунка
  h := p1.Height;              // получить высоту рисунка
  p2 := Picture.Create(w,h);   // создать «пустой» графический объект
                               // с такими же размерами
end.