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

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

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