program pascal;

var
p1, p2, p3, p4: real;

begin
p1 := 12;
p2 := 0.3;
p3 := 0.05;
p4 := 6;

writeln${}^{\prime }ДавлениевПаскалях{:}^{\prime }$;
writeln$p1{,}^{\prime }гПа{=}^{\prime },p1<em>1000{,}^{\prime }П{а}^{\prime }$;
writeln$p2{,}^{\prime }Н/см2{=}^{\prime },p2</em>10000{,}^{\prime }П{а}^{\prime }$;
writeln$p3{,}^{\prime }кПа{=}^{\prime },p3<em>1000{,}^{\prime }П{а}^{\prime }$;
writeln$p4{,}^{\prime }Н/см2{=}^{\prime },p4</em>10000{,}^{\prime }П{а}^{\prime }$;
end.