uses crt;
var a,s:real;
begin
write('Введите общую цену товаров, которую вы хотите купить: ');
readln(a);
if a>1000 then s:=a-0.1*a
else s:=a;
writeln('Стоимость покупки составляет ',s,' рублей.');
end.
Это программа. Суть в том, что если цена больше 1000 рублей, то стоимость - это цена минус 1/10 от это цены, иначе цена совпадает со стоимостью.