Если будут где-то ошибки извините ,возможно в знаках)) проверьте в паскале ,если что напишите
program prazdnik; var a : integer ; begin readln(a); if a=1 then writeln ('пишите сюда праздиники в первый месяц,какие нужны'); if a=2 then writeln ('сюда то чт ово второй '); if a=3 then writeln (' третий ') ; if a=4 then writeln (' четвертый месяц с его праздниками'); if a=5 then writeln (' пятый месяц'); if a=6 then writeln (' шестой месяц'); if a=7 then writeln (' седьмой месяц'); if a=8 then writeln (' восьмой'); if a=9 then writeln (' праздники '); if a=10 then writeln ('празники '); if a=11 then writeln (' праздники 11 месяца'); if a=12 then writeln ('двенадцатый'); end.
Пишу на BASIC:
CLS
SCREEN 12
FOR I = -1 TO 1 STEP 0.1
Y = 1 / I + 2
PRINT Y
NEXT