Программа расчета стоимости покупки на языке Паскаль может быть написана следующим образом:

pascal
program CalculateCost;

var
  price: real;
  quantity: integer;
  totalCost: real;

begin
  // Ввод данных
  writeln('Введите стоимость товара:');
  readln(price);
  
  writeln('Введите количество товара:');
  readln(quantity);
  
  // Расчет стоимости покупки
  totalCost := price * quantity;
  
  // Вывод результатов
  writeln('Общая стоимость покупки:', totalCost:0:2);
end.

Эта программа позволяет пользователю ввести стоимость товара и количество товара, после чего вычисляет общую стоимость покупки и выводит ее на экран. Пример работы программы:

Введите стоимость товара:
10.50
Введите количество товара:
3
Общая стоимость покупки: 31.50

Программа использует переменные `price` и `quantity`, которые пользователь заполняет с клавиатуры с помощью команды `readln`. Затем программа выполняет расчет общей стоимости покупки путем умножения стоимости товара на количество товара и присваивает результат переменной `totalCost`. Наконец, программа использует команду `writeln` для вывода результата на экран с помощью формата `0:2`, чтобы отобразить два знака после запятой для чисел с плавающей точкой.