program pascal;
varp1, p2, p3, p4: real;
beginp1 := 12;p2 := 0.3;p3 := 0.05;p4 := 6;
writeln('Давление в Паскалях:');writeln(p1,' гПа = ', p11000,' Па');writeln(p2,' Н/см2 = ', p210000,' Па');writeln(p3,' кПа = ', p31000,' Па');writeln(p4,' Н/см2 = ', p410000,' Па');end.
program pascal;
var
p1, p2, p3, p4: real;
begin
p1 := 12;
p2 := 0.3;
p3 := 0.05;
p4 := 6;
writeln('Давление в Паскалях:');
writeln(p1,' гПа = ', p11000,' Па');
writeln(p2,' Н/см2 = ', p210000,' Па');
writeln(p3,' кПа = ', p31000,' Па');
writeln(p4,' Н/см2 = ', p410000,' Па');
end.