program pascals;
varpressure1, pressure2: real;
beginpressure1 := 1; // давление в 1 мм.рт.стpressure2 := 750; // давление в 750 мм.рт.ст
writeln('Давление в паскалях:', pressure1 133.322, ' Па');writeln('Давление в паскалях:', pressure2 133.322, ' Па');end.
program pascals;
var
pressure1, pressure2: real;
begin
pressure1 := 1; // давление в 1 мм.рт.ст
pressure2 := 750; // давление в 750 мм.рт.ст
writeln('Давление в паскалях:', pressure1 133.322, ' Па');
writeln('Давление в паскалях:', pressure2 133.322, ' Па');
end.