uses Dos; const NapStr:array[0..6] of string[3]=('Hétfő','Kedd','Szerda','Csütörtök','Péntek','Szombat','Vasárnap'); HonapStr:array[1..12] of string[3]=('Jan','Feb','Mar','Ápr','Máj','Jún', 'Júl','Aug','Szept','Okt','Nov','Dec'); var Ev,Honap,Nap,HetNapja : word; begin GetDate(Ev,Honap,Nap,HetNapja); WriteLn(NapStr[HetNapja],', ',Nap,' ',HonapStr[Honap],' ',Ev,'.'); end.