program data;
uses CRT;
var str_data, strdd, strmm, strrr:string;
var idd, imm, irr, retd, retm, retr, ok_d, ok_m, ok_r, ok_ret:integer;

begin;
	clrscr;
	Writeln('Podaj dowolna date w postaci Dzien / Miesiac / Rok, odzielajac je dowolnym znakiem');
	Read(str_data);
	strdd:=Copy(str_data, 1, 2);
	strmm:=Copy(str_data, 4, 2);
	strrr:=Copy(str_data, 7, 4);

	Val(strdd, idd, retd);
	Val(strmm, imm, retm);
	Val(strrr, irr, retr);


	if ((idd>0) and (idd<32)) then ok_d:=1 else ok_d:=0;
	if ((imm>0) and (imm<13)) then ok_m:=1 else ok_m:=0;
	if ((irr>0) and (irr<2000)) then ok_r:=1 else ok_r:=0;
	if ((retd=0) and (retm=0) and (retr=0)) then ok_ret:=1 else ok_ret:=0;

	if ok_d+ok_m+ok_r+ok_ret=4 then begin;
		writeln(idd);
		writeln(imm);
		writeln(irr);
	end else begin;
		Writeln('Zla data!');
	end;




	readkey;
end.


	{
	idd:=10*(Ord(strdd[1])-48);
	idd:=idd+(Ord(strdd[2])-48);

	imm:=10*(Ord(strmm[1])-48);
	imm:=imm+(Ord(strmm[2])-48);

	irr:=1000*(Ord(strrr[1])-48);
	irr:=irr+100*(Ord(strrr[2])-48);
	irr:=irr+10*(Ord(strrr[3])-48);
	irr:=irr+(Ord(strrr[4])-48);
	}