dz3 ch2

program part2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type sickman = object
    f:string;
    v:integer;
    procedure input;
    procedure output;
    end;

    sickman2 = object(sickman)
    g:integer;
    procedure input2;
    procedure output2;
    function  disp:integer;
    end;

  procedure sickman.input;
  begin
   write('Vvedite familiu: ');
   readln(f);
   write('vvedite vozrast: ');
   readln(v);
  end;
  procedure sickman2.input2;
  begin
  input;
  write('Vvedite god posledney dispancerizacii: ');
  readln(g);
  end;
  procedure sickman.output;
  begin
    writeln('Familiya: ',f);
    writeln('Vozrast: ',v);
  end;
  procedure sickman2.output2;
  begin
  output;
  writeln('God posledney dispancerizacii:',g);
  end;
  function sickman2.disp;
  begin
   disp:=g+3;
  end;
  var f:integer; bolnoymama:sickman; bolnoyrebenok:sickman2;
begin
 bolnoymama.input;
 bolnoymama.output;
 bolnoyrebenok.input2;
 bolnoyrebenok.output2;
 f:=bolnoyrebenok.disp;
 writeln('God sled dispan:',f);
 readln;
end.