помогите срочно!!!!!!!!!!!

битовая глубина цвета - 16 битов. Какой размер растра используется для вывода изображения: 640х480 или 1024х768?

противном случае все отрицательные элементы матрицы возвести в квадрат.

У меня получилось вот что:

program s455;
uses crt;
const
m=10;
n=12;
Var
A: array[1..m,1..n] of integer;
i, j, k, s: integer;

Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
end;
begin
if a<0 then begin
k:=1;
end;
if k=1 then s:=s+1;
end;
begin;
if k<0
then a[i, j]:=a[i, j*2-1]*10;
else a[i, j]:=a[i, j]*c [i, j]
end;
writeln

Не могу понять в чем ошибка

1)дан одномерный массив заполнит его так чтобы получилась геометрическая прогрессия где первый член равен 2, d=-3 и вывести в столбец.
2)вывести массив в строку и найти минимальный элемент массива.
3)отсортируйте его по возрастанию и вычислите произведение элементов массива.

Вычислить значение функции по формуле. Значение аргумента x принадлежит[0,1;0,6]
вариант 4

Вариант 4.