Програму напишите(паскаль). При посещении бассейна существует скидка 10% скидка от стоимости за посещение в утренние

Question

Програму напишите(паскаль).
При посещении бассейна существует скидка 10% скидка от стоимости за посещение в утренние часы (с 7 до 12), а также за вечерние часы (20-23) в будние дни. Напишите программу, которая получает время посещения и выводит соответствующее сообщение «скидка» или «скидка отсутствует». 
Пример задачи:
Введите время посещения:
8
Скидка.
Пример:
Введите время посещения :
15
Скидка отсутствует.

Accepted Answer

program p1;
var s:real;
begin
writeln('Введите сумму покупки: ');
read(s);
if s>1000 then
begin
 s:=s-(s*0.1);
 writeln('Вам предоставляется скидка 10%');
end;
writeln('Сумма покупки с учётом скидки ',s,' рублей');
end.

Ответы1