С Паскалем помогите

[Panda]

Составьте программу, которая по номеру дня в году выводит число и месяц в об-щепринятой форме (например, 33-й день года — 2 февраля).

[Баламут]

Черт, у меня даже Паскаль на диске остался...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Data: TDate;
begin
  Data := 0;
  Data := Data + 33;
  Edit1.Text := DateToStr(Data);
end;

Пардон, это было Делфи...

uses crt, dos;
var
   Data: DateTime;
begin
Data.Year := 2000;
Data.Month := 0;
Data.Day := 0;
Data.Day := Data.Day + 31;
clrscr;
writeln(Data.day,'.',Data.Month,'.',Data.Year);
repeat until keypressed;
end.

Это Паскаль

Ясен пень, что этот код неработоспособен (в рамках постановленного вопроса). Но ведь направление понятно же?

[Карась]

Вот я думаю...... как такое возожно?
http://programmersforum.ru/showthread.php?t=21882

Два разных пользователя постят темы с абсолютно одинаковым содержимым.....

Или автор этой темы чтото вроде бота который тупо копирует темы... или это раздвоение личности.

[mutabor]

Может нужно ручками? Panda, как нужно?

p.s. по ходу Panda = сашка
В той теме ручками сделали )

p.s.2 Все ясно, это он видно чтобы не ругались, от него тут вопросов куча, сделайте да сделайте.
А тут он спалился, забыл видно что под другим именем уже спросил )

[Карась]

В бан за такое...
Это вообще идиотизм..... я уверн что он не один пользует такую систему добычи ответов.....