Delphi初级问题

Question

program Date;
{$APPTYPE CONSOLE}
uses
  windows;type
  Year=0..2010;
  Month=1..12;
  Day=1..31;
var
  Dayth,i,n:integer;
  m:Month;
  d:Day;
  y:Year;
begin
read(m,d,y);
Dayth:=0;
n:=m-1;
for i:= 1 to n do
  case i of
  1,3,5,7,8,10,12:
  Dayth:=Dayth+31;
  2:
  if((y mod 4=0)and(y mod 100<>0)or(y mod 400=0))then
  Dayth:=Dayth+29
  else
  Dayth:=Dayth+28;
  4,6,9,11:
  Dayth:=Dayth+30;
end;
  Dayth:=Dayth+d;
  writeln(Dayth);
  writeln('quit after 1 s');
  sleep(1000);
end.
这段程序为什么放到DELPHI2007里面运行的时候没显示的啊?
运行的时候不是点哪个绿色的三角形吗?

Answer 1

这个是控制台程序，要求你一次输入参数
read(m,d,y); 
月 日 年然后输出该日期是那年的第几天。