Program DZ;
var a:real;
begin
read (a);
if a>1000 then
begin
a:=a-a/100*15;
write (a:0:3);
end
else write ('скидка не предоставляется');
end.
за тридевять земель или к чёрту на кулички
Светлый,яркий,огромный,тусклый,широкий,близкий
<span>Весь абзац может иметь отступы слева и справа, которые отмеряются от границ полей страницы. 1 или 2</span>