сколько молей состовляют и сколько молекул содержат 11г углекислого газа?

Масса коробки конфет и 2-х пакетов урюка равна 550 г. Масса 5 коробок конфет и 3-х пакетов урюка равна 1 кг 700 г. Какова масса коробки конфет? Какова масса пакета урюка?                

НУЖНО РЕШИТЬ В ВИДЕ СИСТЕМЫ ЛИНЕЙНОГО УРАВНЕНИЯ!!! СПАСИБО! 

в заданном случайным образом массиве ...
максимальное значение заменить минимальным а минимальное максимальным...

выдает ошибку там где random(30);
проверьте пожалуйста...

Program A1;
var a:array[1..30] of integer;
    amax,amin,i,k1,n,s:integer;
begin
writeln('введите n элементов массива');
readln (n);
for i:=1 to n do
random(30);
writeln('введённый массив имеет вид');
write (a[i], '  ');
writeln;
amax:=a[1]; k1:=1;
for i:=2 to n do
if a[i]>amax then
amax:=a[i];
amin:=a[1];
for i:=2 to n do
if a[i]<amin then
amin:=a[i];
writeln('полученный массив имеет вид');
amax:=amin;
amin:=amax;
for i:=1 to n do
writeln(a[i],'  ');
end.