Нужно написать в паскале программу задаешь вопрос "какая будет погода" и он должен ответить рандомно с вероятностью 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.Пример работы программыЗадайте свой вопрос: Какая будет погода?Ясно