mrpear: program Pohadka;
var Drak,Princ,Princezna:TPostavy

begin
  if Princ.Sila>Drak.Sila then begin
    Drak.Delete;
    Princ:=Princ+Princezna.Kralovstvi/2;
  end else begin
    Princ:=Princ-Hlava; 
  end
end