Написать программу, которая бы по введенному номеру года (1 - зима, 2-весна, 3-лето, 4-осень) выдавала соответствующие этому времени года месяцы, количество дней в каждом из месяцев)

program p;

var a: integer;

begin

writeln("введите время года: "); readln(a);

case a of

1 : writeln("декабрь: 31 январь: 31 февраль: 28");

2 : writeln("март: 31 апрель: 30 май: 31");

3 : writeln("июнь: 30 июль: 31 август: 31");

4 : writeln("сентябрь: 30 октябрь: 31 ноябрь: 30");

end; readln; end.

Var       arr: array[1..10] of integer;       i, max: integer; begin       randomize;       max : = 0;       for i: =1 to 10 do       begin               arr[i] : = random(100);                 if arr[i] > max then                 begin                       max : = arr[i];               end;           end;             writeln('max element is: ');       writeln(max); end.

#! /usr/bin/env perl use strict; use warnings; use utf8; my @vector; my $vector_length = 100; my $random_dia = 30000; push @vector, int(rand($random_dia)) for(0..$vector_length); my ($start, $end) = (undef, undef); my ($min, $max, $sum) = ( $random_dia, 0, 0,); for my $position (0.. $#vector)){   if($vector[$position] > $max ){       $max = $vector[$position];       $end= $position;   }   if($vector[$position] < $min ){       $min = $vector[$position];       $start= $position;   } } for my $position ($min..$max){   $sum += $vector[$position]; } say 'result: \t '.$sum;