Написать программу в PASCAL начисления скидок: если сумма покупки > 100, то скидка 10%. Если меньше или равна 100, то скидка 5%

var s:real;beginwrite('Сумма покупки = ');readln(s);if s>100 then writeln('Скидка = ',s*0.1)else writeln('Скидка = ',s*0.05);end.Пример:Сумма покупки = 200Скидка = 20

program программаначисленияскидок;vara: real;beginwriteln('Введите сумму покупки.');readln(a);if a > 100 thenwriteln('Предоставляется скидка 10%.')elsewriteln('Предоставлется скидка 5 %.');end.