Составьте программу осуществляющую поиск однофамильцев, обучающихся в одном классе

Uses crt; type uchenik=record               fam: string[20];               im: string[20];               kls: string[3];               end; var a: array[1..100] of uchenik;     n,i,j,k: byte; begin clrscr; writeln('сколько учеников n='); readln(n); writeln('введите данные о ',n,' учениках: '); for i: =1 to n do   begin   writeln('ученик ',i);   write(' фамилия: '); readln(a[i].fam);   write(' имя: '); readln(a[i].im);   write(' класс ( год+буква, 11а): '); readln(a[i].kls);   end; writeln('однофамильцы в одном классе: '); k: =0; for i: =1 to n-1 do for j: =i+1 to n do if (a[i].fam=a[j].fam)and(a[i].kls=a[j].kls) then   begin     k: =1;   writeln(a[i].kls,'   ',a[i].fam,'   ',a[i].im,'   ',a[j].fam,'   ',a[j].im);   end; if k=0 then write('однофамильцев в одном классе нет! '); readln end.

Автоматиза́ция произво́дства  — это процесс в развитии машинного производства, при котором функции и контроля, ранее выполнявшиеся человеком, приборам и автоматическим устройствам[1]. введение автоматизации на производстве позволяет значительно повысить производительность труда, обеспечить стабильное качество выпускаемой продукции, сократить долю рабочих, занятых в различных сферах производства. до внедрения средств автоматизации замещение труда происходило посредством механизации основных и 

Можно просто открыть ворд и проделать эту работу. если набрать в редакторе =rand.old(5,4) и нажать enter, то  вместо этой команды появятся пять абзацев, в каждом из которых четыре раза повторится предложение перекусить.если набрать в редакторе =lorem() и нажать enter, то  вместо этой команды появится кусок текста из lorem ipsum.если набрать в редакторе =rand(5) и нажать enter,  вместо этой команды появятся пять случайных абзацев из справки.если выделить кусок текста и нажать комбинацию shift+f3, то  изменится регистр для всего этого куска (весь текст станет набран заглавными, а если нажать еще раз, то строчными буквами).если в процессе работы над документом нажать f4, то  word повторит последнюю команду (если вы до этого поставили точку, то он еще раз поставит точку и т.если набрать в редакторе =rand(1) и нажать enter, то  вместо этой команды появится случайный абзац из справки.если нажать комбинацию shift+alt+d, то  будет вставлена текущая дата.