{programm v„ljastab tervituse kolmes erinevas maailmakeeles}
uses crt;
type
 keeleviit=^keel;
 keel=object
     constructor Init;
     procedure jutusta; virtual;
 end;
 eestiviit=^eesti;
 eesti=object(keel)
     procedure jutusta; virtual;
 end;
 britiviit=^briti;
 briti=object(keel)
     procedure jutusta; virtual;
 end;
 saksaviit=^saksa;
 saksa=object(keel)
     procedure jutusta; virtual;
 end;

 constructor keel.Init;
 begin end;
 procedure keel.jutusta;
 begin
    textcolor(red); writeln('Teretamine erinevates keeltes:');
    textcolor(lightgray);
 end;
 procedure eesti.jutusta;
 begin
   writeln('Tere hommikust!!!');
 end;
 procedure briti.jutusta;
 begin
   writeln('Good morning!!!');
 end;
 procedure saksa.jutusta;
 begin
  writeln('Guten Morgen!!!');
  sound(1000); readkey; nosound;
 end;

var maailmakeeled: array[1..4] of keeleviit;
    i: integer;
begin
  maailmakeeled[1]:=new(keeleviit, Init);
  maailmakeeled[2]:=new(eestiviit, Init);
  maailmakeeled[3]:=new(britiviit, Init);
  maailmakeeled[4]:=new(saksaviit, Init);
  for i:=1 to 4 do maailmakeeled[i]^.jutusta;
end.