一年中的第几天 pascal中的‘-’怎么加

一年中的第几天 pascal中的‘-’怎么加

在要加的地方加上这个就行了 write('-');追问是要read中加‘-’追答？？不明白，如果是要输入的话，只能手动输入，或者是读一个自己在用字符串加上追问Var a:array[1..12]of integer;
i,n,y,r,ans:integer;
Begin
readln(n,y,r);
a[1]:=31;
if ((n mod 4=0)and(n mod 100<>0))or(n mod 400=0) Then a[2]:=29 else a[2]:=28;。。。。。。追答哦，可以告诉你个很猥琐的办法。
若过输入是2000-10-3的话
你可以read(n,s1,y,s2,r);这边s1,s2都是字符char,只要读进来，不用管他

就是键盘上的减号啊追问是要read中加‘-’追答你可以读入时直接读入一个字符串，再分解。（在字符串中找到-的位置）追问可以把程序发给我吗？谢谢！追答我直接打主体部分——这一段是如果你读入a-b，我可以分解出a和b
readln(s);
t:=pos('-',s); //找“-”在s中的位置
a:=copy(s,1,t-1);
b:=copy(s,t+1,length(t)-t);

writeln('-');
writeln(a,'-',b);追问是要read中加‘-’