Составить программу (полный текст программы) вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 500 руб, в 5% - если сумма больше 1000 руб. Фрагмент программы: if x>500 then y:=0.97*x; if x>1000 then y:=0.95*x;

// Пример программы на языке Pascal.

var
  x, y :real;          // объявляем переменные вещественного типа.
begin
  writeln('Введите сумму покупки:');      // вывод строки на экран.
  readln(x);                                          // считываем сумму покупки.
    if x <= 500 then writeln('Скидки на покупку нет!')     //если сумма покупки меньше 500 руб.
    else
        begin
            if ((x>500) and (x<1000)) then y:=0.97*x;   //считаем сумму покупки со скидкой 3 %.
            if x>1000 then y:=0.95*x;                          //считаем сумму покупки со скидкой 5 %.
   writeln('Стоимость покупки с учетом скидки составляет: ', y, ' руб.'); // вывод строки на экран.
        end;
end.