consk: real = 1000; // Коэффициент перевода из гПа в Пvap_GPa, p_Pa: real; // Давление в гПа и Пbegip_GPa := 0.6; // Давление в гПp_Pa := p_GPa * k; // Переводим давление из гПа в Пwriteln('Давление равно ', p_Pa:0:2, ' Па')end.
cons
k: real = 1000; // Коэффициент перевода из гПа в П
va
p_GPa, p_Pa: real; // Давление в гПа и П
begi
p_GPa := 0.6; // Давление в гП
p_Pa := p_GPa * k; // Переводим давление из гПа в П
writeln('Давление равно ', p_Pa:0:2, ' Па')
end.