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

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