Дана сумма начисленной заработной платы вычислить подоходный налог 12% 1% на профсоюзный налог 1% на пенсионный налог полученную сумму на руки вывести на экран

var    s: real;
begin
    readln(s);   
    s := s - (0.12 + 0.01 + 0.01) * s;
    writeln('Сумма : ', s);
end.