var xingbie,xing,ming1,ming2,ming3:string;
max,changdu,i,j:integer;
shouzimu1,shouzimu2,shouzimu3:string;
n1,n2:array[1..100] of string;begin
read(xingbie);
if xingbie='nan' then max:=3
else max:=2;
if xingbie='nan' then
for i:=1 to max do readln(n1)
else
for i:=1 to max d...
|