Var d,m,dr: string;
<span> mes: array[1..12] of string=('января','февраля','марта',
</span><span> 'апреля','мая','июня','июля','августа','сентября',
</span><span> 'октября','ноября','декабря');
</span><span>begin
</span><span> write('дата рождения в формате dd.mm.gg: ');
</span><span> readln(dr);
</span><span> d:=copy(dr,1,2);
</span><span> m:=copy(dr,4,2);
</span><span> writeln(StrToInt(d),' ',mes[StrToInt(m)]);
</span><span>end.
</span>
дата рождения в формате dd.mm.gg : 05.08.2001
<span>5 августа
</span>