NickGI
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Program Date_and_day_of_week;
Uses Dos, Crt;
Var
year,month,day,dof : word;
s : string;
Begin
GetDate(year,month,day,dof);
ClrScr;
case dof of
0 : s:='Sunday';
1 : s:='Monday' ;
2 : s:='Tuesday';
3 : s:='Wednesday';
4 : s:='Thursday';
5 : s:='Friday';
6 : s:='Saturday';
end;
Randomize;
GotoXY(35,12);
TextColor(random(15)+1);
Write(day);
TextColor(random(15)+1);
Write('/');
TextColor(random(15)+1);
Write(month);
TextColor(random(15)+1);
Write('/');
TextColor(random(15)+1);
Write(year);
TextColor(random(15)+1);
Write(' - ');
TextColor(random(15)+1);
Write(s);
readln;
End. |
Всего записей: 10 | Зарегистр. 11-02-2007 | Отправлено: 17:58 25-02-2007 | Исправлено: NickGI, 18:07 25-02-2007 |
|
