помогите пожалуйста с написанием программы в Turbo Pascal

Question

Вычислить приращение объёма продукции за счёт структурных сдвигов в составе продукции: Dp= Pop*Dk, где Dk= k1 - k2. Исходные данные : k1 = 1,034 ; k2 = 1,1204 ; Pop = 17246.

Каришка · Accepted Answer

в упор не вижу трудностей в написании этой херни. Ты хоть с синтаксисом паскаля знакома?

Алёна · Answer

program abc; 
uses crt; 
const 
k1 = 1.034; 
k2 = 1.1204; 
Pop = 17246; 
Var 
Dp, Dk: real; 
begin 
Dk = k1-k2; 
Dp = Pop*Dk; 
writeln(Dp); 
readln; 
end.

Сергей Бар · Answer

begin 
writeln('result = ' , (1.034 - 1.1204)*17246:3:3 ); 
readln; 
end;