Var s:real; begin write('Стоимость покупки = '); readln(s); if s>5000 then writeln('Стоимость покупки со скидкой = ',s*0.8:5:2) else writeln('Скидка не предоставляется. Стоимость = ',s:5:2); end.
Пример: Стоимость покупки = 6000 Стоимость покупки со скидкой = 4800.00
begin
write('Стоимость покупки = ');
readln(s);
if s>5000
then writeln('Стоимость покупки со скидкой = ',s*0.8:5:2)
else writeln('Скидка не предоставляется. Стоимость = ',s:5:2);
end.
Пример:
Стоимость покупки = 6000
Стоимость покупки со скидкой = 4800.00