##
var Начислено := ReadReal('Введите сумму:');
var ПроцентУдержаний := 12 + 1 + 1;
var Удержано := Начислено * ПроцентУдержаний/100;
var Надбавка := (Начислено - Удержано) * 45/100;
var КВыдаче := Начислено - Удержано + Надбавка;
Print('Сумма к выдаче:', КВыдаче)