при покупке свыше 5000 рублей дает скидку 20% составить задачу паскаль

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