program dz2; uses crt; var x: integer; begin write ('введите номер месяца'); read (x); if (x>=3) and (x<=5) then write ('весна'); if (x>=6) and (x<8) then write ('лето'); if (x>=9) and (x<=11) then write ('осень'); if (x=12) or (x<=2) then write ('зима'); end.
В задаче №3 вижу только одну ошибку. Имя программы не может начинаться с цифры. Задача №4 представлена частично, поэтому определить наличие ошибок здесь проблематично.