дз 3 часть 3

program ex3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type

  apt = object
    cost:integer;
    size:integer;
    procedure init;
    procedure output;
    function cpm:real;
  end;

  house = object
    num:integer;
    mas: array [1..100] of apt;
    procedure init2;
    procedure output2;
    function costs:integer;
  end;

  Procedure apt.init;
  begin
    writeln('Enter cost of apt: ');
    readln(cost);
    writeln('Enter size of apt: ');
    readln(size);
  end;

  Procedure apt.output;
  begin
    writeln('Cost of apt: ',cost);
    writeln('Enter size of apt: ',size);
  end;

  function apt.cpm;
  begin
    cpm:=cost/size;
  end;

  Procedure house.init2;
  var i:integer;
  begin
    writeln('Enter number of apt in this house: ');
    readln(num);
    writeln('Enter apt. properties: ');
    for i := 1 to num do begin
      mas[i].init;
    end;
  end;

  Procedure house.output2;
  var i:integer;
  begin
    writeln('Number of apt in this house: ',num);
    for i:= 1 to num do begin
      writeln('Apt. propertied: ');
      mas[i].output;
    end;
  end;

  function house.costs;
  var max,overallcost,n,i:integer;
  begin
    n:=0;
    overallcost:=0;
    writeln('Enter max cost of apt: ');
    readln(max);
    for i := 1 to num do begin
      overallcost:=overallcost+mas[i].cost;
    end;
    writeln('House cost: ', overallcost);
    for i := 1 to num do begin
      if mas[i].cost <= max then begin
        inc(n);
      end;
    end;
    costs:=n;
  end;
  var flat:apt;
      home:house;
      f:real;
      n:integer;
begin
  flat.init;
  flat.output;
  f:=flat.cpm;
  writeln('Cost of a meter: ',f:0:3);
  home.init2;
  home.output2;
  n:=home.costs;
  writeln('Number of flats with required cost: ',n);
  readln;
end.