14 lines
256 B
ObjectPascal
14 lines
256 B
ObjectPascal
program Philosophers;
|
|
|
|
uses
|
|
Forms,
|
|
fPhilosophers in 'fPhilosophers.pas' {frmDiningPhilosophers};
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TfrmDiningPhilosophers, frmDiningPhilosophers);
|
|
Application.Run;
|
|
end.
|