program Agregacija;
uses crt;
type Litak=object
       tupl:string;
       ser:real;
       procedure input;
     end;

     Pasaguru=object(litak)
       vap,kilk:integer;
       function vaga:real;
     end;

     AviaReys=object
       mpr:longint;
       plane:litak;
       time,pvan:real;
       trfl:boolean;
       procedure vvid;
       function perevirka:real;
       procedure vuvid;
     end;

var l:Litak;
    p:Pasaguru;
    a:AviaReys;

procedure Litak.input;
begin
  writeln('|----------Osnovni danni:Litak----------|');
  write(' Vvedit tup litaka: '); readln(l.tupl);
  write(' Vvedit seredny shvudkist litaka: '); readln(l.ser);
  write(' Vvedit k-tb prodanux kvitkiv: '); readln(p.kilk);
  writeln;
end;

function Pasaguru.vaga:real;
begin
  p.vap:=p.kilk*100;
end;

procedure AviaReys.vvid;
begin
  writeln('|---------Osnovni danni:AviaReys--------|');
  write(' Vvedit misce pruzemlenna (km): '); readln(a.mpr);
  write(' Vvedit vagy poshtovogo vantagy: '); readln(a.pvan);
  writeln;
end;

function AviaReys.perevirka;
begin
  if a.pvan <= p.vap then
  begin
    a.trfl:=True;
    a.time:=a.mpr/l.ser;
  end
  else a.trfl:=False;
end;

procedure AviaReys.vuvid;
begin
  writeln('|--------------Osnovni danni------------|');
  writeln(' Misce pruzemlenna (km): ',a.mpr:4);
  writeln(' Tup litaka: ',l.tupl);
  writeln(' Seredna shvudkist litaka: ',l.ser:3:2);
  writeln(' K-tb prodanuh kvutkiv: ',p.kilk);
  if a.trfl=True then writeln(' Chas poloty z vantagem: ',a.time:2:2)
  else writeln(' Litak ne rozrahovanuj na takuj vantag (',a.pvan:5:2,')!');
end;

begin
  clrscr;
  l.input;
  p.vaga;
  a.vvid;
  a.perevirka;
  a.vuvid;
  readln;
end.