freepascal.ru

Код: Выделить всё

type
  TDefecator = class(TObject)
     procedure Defecate; virtual; abstract;
  end;

  TCirclePissing = class(TDefecator)
  public
     procedure Defecate; override;
  end;

procedure TCirclePissing.Defecate; 
begin
  writeln('pissing on a circle:');
  writeln('    ****    ');
  writeln('   *    *   ');
  writeln('  *      *  ');
  writeln('  *      *  ');  
  writeln('   *    *   ');
  writeln('    ****    ');
end;

var
  pisser : TCirclePissing;
begin
  pisser := TCirclePissing.Create;
  pisser.Defecate; 
  pisser.Free;
end;