Хелп ми плиз написать программу вычисления в стоимости покупки с учетом скидки 9%...

Question

Хелп ми плиз

написать программу вычисления в стоимости покупки с учетом скидки 9% предоставляется если сумма покупки больше 1000.

язык программирования pascal

Answer 1

Var x: integer;
var price: real;

begin 
  writeln('Введите цену: ');
  readln(x); 
  if(x > 1000) then price := x * 0.91 
  else price := x;   
  writeln('Стоимость покупки: ', price); 
end.

Comments

Оо, огромное Вам спасибо :*