Думаю тебе алгаритм ветвения,он состаит из вывода,условия,и начала,конца.
Если ошибся,поправьте.
Начало
Вывод(указываем переменные,A,B.ну и т.д.)
Да Условие(к примеру:A>=B) Нет
Если х=A+B Иначе х=A/B
Ну и дальше вывод,и конец.
Вывод
Конец.
Простите,что данный алгаритм написан не достаточно хорошо,ну думаю вам
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then
begin
case dn of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
4,6,9,11:writeln('В этом месяце 30 дней');
2:writeln('В этом месяце 28 дней');
end;
end
else writeln('Введите корректно');
readln;
end.