Нарисовать блок-схему к алгоритму. Цикл с постусловием
Задача. Составить программу для планирования покупки в магазине товаров на сумму, не превышающую заданную величину.

Решение
Обозначим через x и k цену и количество товара, через p - заданную предельную сумму, через s - стоимость покупки.
Начальное значение общей стоимости покупки s равна нулю. Значение предельной суммы вводится с клавиатуры.
Необходимо повторять запрос цены и количества выбранного товара, определять его стоимость, добавлять ее в общую стоимость и выводить результат на экран до тех пор, пока стоимость не превысит предельную сумму p.

Рrogram Exemple;
Var x, k, p, s: integer;
Begin
Write ( 'Предельная сума--');
Readln (P);
S: = 0;
Repeat
Write ( 'Введите цену товара и его коли-
кость: ');
Readln (x, k)
S = s + k * x;
Writeln ( 'стоимость покупки равна', s)
Until s> p;
Writeln ( 'стоимость покупки превысила предельную
сумму! ');
End.