Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести **...

Question

Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( СДЕЛАТЬ ПРОГРАММУ!!!)

Answer 1

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.

Comments

Это для Pascal