через паскаль 1 ввести 3 числа,вывести наименьшее 2 ввести номер месяца ,вывести...

Question

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

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

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

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

Answer 1

program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then <br> write ('весна');
if (x>=6) and (x<8) then <br> write ('лето');
if (x>=9) and (x<=11) then <br> write ('осень');
if (x=12) or (x<=2) then <br> write ('зима');
end.