В сосуде объемом V=2 л находится масса m1=6 г углекислого газа (СO2) и масса m2 закиси азота (N2O) при температуре t=127° C. Найти давление p смеси в сосуде

Решение к задаче представлено в виде картинки и приложено к ответу

program ivan_vasilievich;
uses crt;
var n, k:integer;
begin
writeln('Введите своё число');
readln(n);
If (n<10) or (n>99) then
begin
writeln('Число не двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно',k);
end;
end
else
begin
writeln('Число двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно ',k);
end;
end;
readln;end.

Program SORT_1;   
Const n=10;
Var
    Mas  : array[1..n] of integer;
    i , c, p   : integer;
Begin
    Writeln(‘Введите значения элементов массива’);
    For i:=i to n do
    begin
    Write(‘mas[‘,i,’]=’);
    Readln(mas[i]);
         end;
    repeat
    p:=0;
    for i:=1 to n-1 do
        if mas[i]> mas[i+1] then
        begin   
            c:=mas[i];
            mas[i]:=mas[i+1];
            mas[i+1]:=c;
            p:=1;
        end;
    until p=0;
    writeln(‘Упорядоченный  по возрастанию массив:’);
    for i:=1 to n do writeln(‘mas[‘,i,’]=’, mas[i]);
End.