type
dom=class
private kv:integer;
publiс p; et:integer;
constuctor create(p1,kv1,et1);
begin p:=p1;et:=et1;
if et1>0 then et:=et1 else writeln ('неверное количество')
end;
function kp:integer;
function kd:integer;
begin
result:=p*et*kv;
end;
end;
dom.kp:integer;
begin
result:=et*kv;
end;
begin
var
a1:dom:=newdom(3,4,6);
writeln(a1.p,a1.kv:3,a1.et:3);
writeln(' количество квартир в подъезде');
writeln(a1.kp());
writeln(' количество квартир в доме')
writeln(a1,kd());
end.

Const
 SS:String=('***');
 Nstud=10;
type
 anketa=record
  fam: string;
  name: string;
  otc: string;
  curs: 1..5;
  grupp: string[3]
 end;
var
 student: array [1..Nstud] of anketa;
 Initial: array [1..Nstud] of string[3];
 i,j,z,z1,z2: integer;
 s,s1,s2:string;
 b,b1,b2:boolean;
begin
{инициализируем массив Initial}
 for i:=1 to Nstud do
  Initial[i]:=SS;
{последовательно вводим каждую запись}
 for i:=1 to Nstud do
  begin
   writeln ('введите сведения о ', i , '-м студенте');
   writeln ('введите фамилию');
   readln (student[i].fam);
   Initial[i][1]:=student[i].fam[1];
   writeln ('введите имя');
   readln(student[i].name);
   Initial[i][2]:=student[i].name[1];
   writeln ('введите отчество');
   readln (student[i].otc);
   Initial[i][3]:=student[i].otc[1];
   writeln ('введите курс');
   readln(student[i].curs);
   writeln ('введите группу');
   readln (student[i].grupp);
  end;
  for i:=1 to Nstud-1 do
   begin
    writeln;
    b:=false;
    b1:=true;
    for j:=i-1 downto 1 do
     if Initial[j]=Initial[i] then b1:=false;
    if b1 then
     begin
      b2:=true;
      for j:=i+1 to Nstud do
       begin
        if Initial[j]=Initial[i] then b:=true;
        if b then
         begin
          if b2 then
           begin
            Writeln(student[i].fam,' ',student[i].name,' ',student[i].otc);
            Writeln(student[j].fam,' ',student[j].name,' ',student[j].otc);
            b2:=false;
           end
          else
            Writeln(student[j].fam,' ',student[j].name,' ',student[j].otc);
         end;
        b:=false;
       end;
     end;
   end;
 readln;
end.