constk: real = 1000; // Коэффициент перевода из гПа в Паvarp_GPa, p_Pa: real; // Давление в гПа и Паbeginp_GPa := 0.6; // Давление в гПаp_Pa := p_GPa * k; // Переводим давление из гПа в Паwriteln('Давление равно ', p_Pa:0:2, ' Па');end.
const
k: real = 1000; // Коэффициент перевода из гПа в Па
var
p_GPa, p_Pa: real; // Давление в гПа и Па
begin
p_GPa := 0.6; // Давление в гПа
p_Pa := p_GPa * k; // Переводим давление из гПа в Па
writeln('Давление равно ', p_Pa:0:2, ' Па');
end.