Нужно написать в паскале программу задаешь вопрос "какая будет погода" и он должен ответить рандомно с вероятностью 30% дождь, 50% ясно и 20% пасмурно

var   n:integer;   s:string; begin   Write('Задайте свой вопрос: ');   Read(s);   if s='Какая будет погода?' then   begin     Randomize;     n:=Random(100)+1;     case n of     1..30:Writeln('Дождь');     31..80:Writeln('Ясно');     else Writeln('Пасмурно')     end;   end   else Writeln('У меня нет ответа') end. Пример работы программы Задайте свой вопрос: Какая будет погода? Ясно