При покупке свыше 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