program Dekio;
var
a: real;
begin
write('Введите сумму: ');
readln(a);
a := a - (a * 0.14);
a := a + (a * 0.45);
writeln(a);
end.
program Dekio;
var
a: real;
begin
write('Введите сумму: ');
readln(a);
a := a - (a * 0.14);
a := a + (a * 0.45);
writeln(a);
end.