створіть проєкт у якому в результаті настання події create (Exsplose) зміняться розміри вікна,колір фону і зменшиться на 100 пікселів відступ його лівої межі від лівої межі екрана.Pascal​

Ответ:

Объяснение:

program Project1;

uses

 crt, graph;

var

 gd, gm: integer;

 event: char;

begin

 gd := detect;

 initgraph(gd, gm, '');

 { Встановлюємо початкові значення розмірів вікна та його фону }

 setcolor(white);

 setbkcolor(black);

 cleardevice;

 rectangle(100, 100, 500, 400);

 { Встановлюємо початкове значення відступу лівої межі вікна від лівої межі екрана }

 setviewport(100, 0, 500, 400, true);

 repeat

   { Очікуємо на подію "Exsplose" }

   if keypressed then

     event := readkey;

   if event = 'e' then

   begin

     { Змінюємо розміри вікна та його фон }

     cleardevice;

     rectangle(200, 200, 600, 500);

     setbkcolor(red);

     { Зменшуємо відступ лівої межі вікна від лівої межі екрана на 100 пікселів }

     setviewport(0, 0, getmaxx - 100, getmaxy, true);

   end;

 until event = 'q';

 closegraph;

end.