через паскаль

1 ввести 3 числа, вывести наименьшее

2 ввести номер месяца, вывести название месяца

3 ввести 5 чисел, вывести в порядке убывания

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.