program pressure_conversion;
varp_gPa, p_N_cm2, p_kPa, p_N_mm2: real;
beginp_gPa := 5;p_N_cm2 := 0.02;p_kPa := 0.4;p_N_mm2 := 10;
writeln('Pressure conversions:');writeln(p_gPa, ' gPa = ', p_gPa 10, ' Pa');writeln(p_N_cm2, ' N/cm^2 = ', p_N_cm2 1e3, ' Pa');writeln(p_kPa, ' kPa = ', p_kPa 1e3, ' Pa');writeln(p_N_mm2, ' N/mm^2 = ', p_N_mm2 1e6, ' Pa');end.
program pressure_conversion;
var
p_gPa, p_N_cm2, p_kPa, p_N_mm2: real;
begin
p_gPa := 5;
p_N_cm2 := 0.02;
p_kPa := 0.4;
p_N_mm2 := 10;
writeln('Pressure conversions:');
writeln(p_gPa, ' gPa = ', p_gPa 10, ' Pa');
writeln(p_N_cm2, ' N/cm^2 = ', p_N_cm2 1e3, ' Pa');
writeln(p_kPa, ' kPa = ', p_kPa 1e3, ' Pa');
writeln(p_N_mm2, ' N/mm^2 = ', p_N_mm2 1e6, ' Pa');
end.