begin while a <= 1000 do begin writeln('Введите сумму покупки > 1000р'); readln(a); if a > 1000 then break else writeln('Ошибка! Введенная сумма покупки <= 1000p'); end; writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9); end. Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки: var a: real;
begin writeln('Введите сумму покупки > 1000р'); readln(a); writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9); end.
