Помогите с Турбо Паскалем

Question

нужно написать код программы полностью все строки, вот условие : При производстве пряжи из каждого кг сырья получается 0, 93 кг пряжи, 0,06 кг – отходов, 0,01 кг – потери. Сколько пряжи отходов и потерь получается из 72 т. Сырья? Напечатать результаты расчета с указанием: получено пряжи, отходов, потери. Нужно кароче чтоб вводишь любое кол во тон а он высчитывал это все

Dguliss · Accepted Answer

var sir,pr,oth,pot:real; 
begin 
Write('skolko materialov= '); 
readln(sir); 
writeln('prashi=',sir*0.93:5:3); 
writeln('-------------------'); 
writeln('othodov=',sir*0.06:5:3); 
writeln('poteri=',sir*0.01:5:3); 
 
end.

Кирилл Королев · Answer

writeln( 'Получится ', 72 * 0.93 ' тонны продукта' ); 
И дальше в этом же духе.