Шифровка в двоичную или каким-то конкретным методом(Хафман..)?
44032*16/8 = 88064 б на секунду = 86 Кб
88064*60 = 5283840 байт на минуту ≈ 5Мб
5283840*80 = 422707200 байт на минуту ≈ 403Мб
Точно не уверен но вроде так:
var
s:real;
begin
writeln ('Введите сумму покупки: ');
readln(s);
if s>1000 then
begin
writeln('Сумма покупки с учётом скидки: ',s*0.9:0:2,' руб.');
end
else
writeln('Сумма покупки: ',s:0:2,' руб.');
end.