Синоптики объявляют погоду на ближайшие дни: 1 – солнце, 2 – дождь, 3 – туман, 4 – ветер. Зная нужную вам погоду, вы принимаете определенное решение: жду нужную погоду, либо – беру отгул, которое выводится на экран. Программа запрашивает ввод нужной погоды и выводит на экран ваше решение на каждый день — Pascal(Паскаль)

Program pogoda;
Uses crt;
Var p,k:byte;
Begin
Clrscr;
Writeln('Возможные варианты состояния погоды: ');
Writeln('<1>   Дождь');
Writeln('<2>   Туман');
Writeln('<3>   Ветер');
Writeln('<4>   Солнце');
k:=1;
Repeat
Case p of
1: writeln('Беру отгул');
2,3: writeln('Жду нужную погоду');
end;
Write(k,'-й день: ');
Write('Введите номер, соответствующий состоянию погоды: ');Read(p);
Writeln;
k:=k+1;
Until p=4;
{Следующую строку добавил от себя}
Writeln('Иду на работу');
End.