Створіть проєкт у якому в результаті настання подіі Click для кнопки іі розміри стануть 40x30 пікселів (ширина-30символів висота 3символа. КТО ДАСТ ПРАВИЛЬНИЙ ОТВЕТ

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n:=ReadInteger('Количество строк (столбцов) в матрице:');

 Writeln('*** Исходная матрица ***');

 var a:=MatrRandom(n,n,-99,99);

 a.Println(4);

 Println(4*a.ColCount*'-');

 var i:=ReadInteger('Укажите номер столбца (счет от 1):');

 if i.InRange(1,a.ColCount) then

 begin

   var col:=a.Col(i-1);

   Println('Сумма элементов столбца',col.Sum,'max=',col.Max)

 end

 else

   Println('Недопустимый номер колонки')

end.

Программа может выглядеть так:

uses Crt;
const n=50;
type Vec=array [1..n] of integer;
var A: Vec;
    i, Sum, Col: integer;
begin
ClrScr;
Randomize;
Sum:=0;
Col:=0;
 for i:=1 to n do
     begin
       A[i]:=10+random(40);
       Write(A[i]: 4);
       if (i mod 10 =0 ) then WriteLn;
       if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then
         begin
              Sum:=Sum+A[i];
              Col:=Col+1;
         end;
     end;
 WriteLn;
 WriteLn (' Sum = ', Sum);
 WriteLn (' Col = ', Col);
ReadLn;
end.