Составить программу (полный текст программы) вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется,

// Пример программы на языке 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.