Начертить контур буквы размер буквы произвольные

Тест по информатике. Правильные ответы отмечены галочками (v)Для верного решения нужно вспомнить, что в 1 байте 8 бит, а также 1кб=1024байт 1Мб=1024кб 1Гб=1024мб.1 символ кодируется 1 байтом, т.е. 8битамиСколько битов содержится в одном байте?(V) 8() 2() 1024() 10 Сколько байтов в слове бит?() 24 () 8(V) 3() 2 Сколько битов в слове байт?() 24() 8(V) 32() 4  512 битов - это:() 1.2 килобайта(V) 64 байта() 256 байтов() 50 байтов 1 килобайт - это:() 1000 байтов() 8 битов () 1024 бита(V) 1024 байта В какой строке единицы измерения информации представлены по возрастанию?() Гигабайт, мегабайт, килобайт, байт, бит.() Бит, байт мегабайт, килобайт, гигабайт.() Байт, бит, килобайт, мегабайт, гигабайт.(V) Бит, байт, килобайт, мегабайт, гигабайт.  8) 81 920 битов - это: () 80 килобайтов(V) 10 килобайтов() 8 килобайтов() 1 мегабайт

Program pr1;
Var A : array [1..4, 1..4] of integer ; {резервирование памяти под массив А (4 на 4)}
i,j, max, p, k: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
For i:=1 to 4 do
For j:=1 to 4 do
A[i,j]:=random (100); {ввод элемента матрицы}
max:=A[1,1]; k:=1; p:=1; {первоначальное предположение}
For i:=1 to 4 do
For j:=1 to 4 do
if A[i,j]>max then begin {Если текущий элемент больше максимального }
max:=A[i,j]; {max = A[i,j], запоминаем индексы текущего элемента}
k:=i;
p:=j;
end;

writeln('Исходный массив:');
For i:=1 to 4 do begin
For j:=1 to 4 do
write (A[i,j], ' ');
writeln;
end;

 

a[k, p] := a[k, p] + a[1, 1];  // добавленные строки

a[1, 1] := a[k, p] - a[1, 1];

a[k, p] := a[k, p] - a[1, 1];

writeln('Преобразованный массив:');
For i:=1 to 4 do begin
For j:=1 to 4 do
write (A[i,j], ' ');
writeln;

end;
writeln ('Максимальный элемент матрицы = ', max);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
end.