Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20
<span>8 уровней яркости красной составляющей, 8 - зеленой и 4 - синей. </span>
Могу сказать темы:
рассписание автобусов
в дневнике схемы
концертное рассписание