Паскаль срочно!!1
Напишите программу, которая вычисляет один из параметров газового состояния (Уравнение Менделеева-Клапейрона): р, V, Т, m- по задаваемым с клавиатуры значениям остальных параметров. R= 8.314 Дж/моль-К - универсальная газовая постоянная; m- масса газа (кг); V - объем данной массы газа (м3); P- давление (Па); T- термодинамическая температура (К); M- масса одного моля газа (кг/моль).

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!const  R=8.314;begin  Writeln('Расчет параметров газового состояния');  Writeln('Введите обозначение величины, которую хотите найти:');  Writeln('p - давление, m- масса газа, V - объем массы газа,');  Writeln('T- термодинамическую температуру, иное - ОТКАЗ');  var c:=ReadlnChar;  if Pos(c,'pPmMVvTt')=0 then Writeln('Всего доброго!')  else begin    var M1,p,V,m,T:real;    M1:=ReadReal('Введите массу одного моля газа (кг/моль):');    case c of    'p','P':begin      m:=ReadReal('Введите массу газа (кг):');      V:=ReadReal('Введите объем массы газа (м3):');      T:=ReadReal('Введите термодинамическую температуру (К);');      Writeln('Давление p составляет ',m*R*T/M1/V:0:5,' Па')      end;    'm','M':begin      p:=ReadReal('Введите давление газа p (Па):');      V:=ReadReal('Введите объем массы газа (м3):');      T:=ReadReal('Введите термодинамическую температуру (К);');      Writeln('Масса газа m составляет ',p*V*M1/R/T:0:5,' кг')      end;    'V','v':begin      p:=ReadReal('Введите давление газа p (Па):');      m:=ReadReal('Введите массу газа (кг):');      T:=ReadReal('Введите термодинамическую температуру (К);');      Writeln('Объем массы газа V составляет ',m*R*T/M1/p:0:5,' м3')      end;    'T','t':begin      p:=ReadReal('Введите давление газа p (Па):');      m:=ReadReal('Введите массу газа (кг):');      V:=ReadReal('Введите объем массы газа (м3):');      Writeln('Термодинамическая температура составляет ',p*V*M1/m/R:0:1,' K')      end    end  endend.ПримерРасчет параметров газового состоянияВведите обозначение величины, которую хотите найти:p - давление, m- масса газа, V - объем массы газа,T- термодинамическую температуру, иное - ОТКАЗmВведите массу одного моля газа (кг/моль): 28e-3Введите давление газа p (Па): 96360Введите объем массы газа (м3): 2e-3Введите термодинамическую температуру (К); 298Масса газа m составляет 0.00218 кг