Информаттика комектесездерш отининш

Uses crt; const   n=15;   var   i,m1,m2,t: integer;   k: array[1..n] of integer; begin   clrscr;   writeln('укажите количество людей на каждом этаже');   for i: =1 to n do read(k[i]);   writeln;   { массив получен, решаем }   m1: =1; m2: =2;   if k[m2]< k[m1] then begin t: =m1; m1: =m2; m2: =t end;   for i: =3 to n do       if k[i]< k[m2] then begin m2: =i; t: =m1; m1: =m2; m2: =t end;   writeln('меньше всего людей на этажах ',m1,' и ',m2);   readkey end. ************************************************************************************** uses crt; const   n=10;   a: array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);   var   i,j,t: integer; begin   clrscr;   t: =a[1];   i: =2;   while (i< =n) and (a[i]=t) do i: =i+1;   if i< =n then begin       writeln('одинаковых элементов: ', i-1);       write('за ними следуют элементы ');       for j: =i to n do write(a[j],' ');       writeln       end   else writeln('весь массив заполнен одинаковыми элементами');   readkey end.