program rodnecislo;

uses crt,dos;

var datum,rodCis,cislo: string;
    i: integer;

begin
randomize;
WriteLn('Zadejte datum narozeni ve tvaru: DD.MM.RRRR: ');
Read(datum);
rodCis:='xxxxxx/';
rodCis[1]:=datum[9];
rodCis[2]:=datum[10];
rodCis[3]:=datum[4];
rodCis[4]:=datum[5];
rodCis[5]:=datum[1];
rodCis[6]:=datum[2];
i:=random(10000)-1000;
str(i,cislo);
rodcis:=rodcis+cislo;
WriteLn('Rodne cislo je: ',rodCis);
repeat until keypressed;
end.