1!111 Запиши доменное имя компьютера, зарегистрированного в домене первого уровня by, домене второго уровня sky и имеющего собственное имя www.

Var
  i,n,k,max:integer;
  s:string;
  a:array[1..12]of integer;
  naz:array[1..12]of string;
begin
naz[1]:=('январь');
naz[2]:=('февраль');
naz[3]:=('март');
naz[4]:=('апрель');
naz[5]:=('май');
naz[6]:=('июнь');
naz[7]:=('июль');
naz[8]:=('август');
naz[9]:=('сентябрь');
naz[10]:=('октябрь');
naz[11]:=('ноябрь');
naz[12]:=('декабрь');
write('Введите число N: ');
readln(n);
for i:=1 to n do
  begin
  write('Введите дату: ');
  readln(s);
  s:=copy(s,4,2);
  k:=StrToInt(s);
  a[k]:=a[k]+1;
  end;
for i:=1 to 12 do
  begin
  if a[i]>=max then
    begin
    max:=a[i];
    n:=i;
    end;
  end;
writeln('Месяц с наибольшим количеством: ',naz[n]);
end.

Pascal:
var a:array [1..30] of integer;
      i:integer;
      p:longint;
begin
  p:=1;
  randomize;
  a[1]:=random(21)+50;
  for i:=2 to 29 do a[i]:=random(100);
  a[30]:=random(21)+50;
  for i:=1 to 30 do write (a[i],' ');
  writeln;
  for i:=1 to 30 do
    if (a[i] in [10..99]) and (a[i] mod 2 = 0) and ((a[i] div 10) in [5..7]) then p:=p*a[i];
  writeln ('Proizvedenie: ',p);
  readln;
end.

C++:
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main()
{
  int a[30],i;
  unsigned long long p = 1;
  srand (time(NULL));
  a[0] = rand()%70+50;
  for (i = 1; i<29; i++)
    a[i] = rand()%100;
  a[29] = rand()%7+50;
  for (i = 0; i<30; i++)
  {
    cout <<a[i] <<" ";
    if ((a[i]/10==5 || a[i]/10==6 || a[i]/10==7) && (a[i]>9 && a[i]<100) && a[i]%2==0)
      p*=a[i]; 
  }
  cout <<endl;
  cout <<"Proizvedenie: " <<p <<endl;
  return 0;
}