Выразите в паскалях следующие значения давления: 760 мм рт ст,380 мм рт ст, 190 мм рт ст

Предыдущий
вопрос Следующий
вопрос

procedure ConvertToPascal;
var
pressure_mmHg, pressure_Pa: real;
begin
pressure_mmHg := 760; // 760 мм рт ст
pressure_Pa := pressure_mmHg * 133.322; // Конвертация в Паскали
writeln('Давление в Паскалях: ', pressure_Pa:0:2);

pressure_mmHg := 380; // 380 мм рт ст
pressure_Pa := pressure_mmHg * 133.322; // Конвертация в Паскали
writeln('Давление в Паскалях: ', pressure_Pa:0:2);

pressure_mmHg := 190; // 190 мм рт ст
pressure_Pa := pressure_mmHg * 133.322; // Конвертация в Паскали
writeln('Давление в Паскалях: ', pressure_Pa:0:2);
end;

begin
ConvertToPascal;
end.