[M.A.D.M.A.N.]

А давайте соберем команду и напишем прогу?
Писать будем примитивнейший Hello World на паскале (можно и раздуть под манер современных бизнец-технологий), с каждого по строчке кода.
Начну:

Код:

1	program HelloWorld;

З.Ы.

[NumLock]

уточнить бы: с GUI или консольное?

[M.A.D.M.A.N.]

Borland Pascal
Вообще для дос

[NumLock]

Код:

1 2	uses   Crt;

с 1 апреля!)

[Alegun]

Прошу прощения

Код:

1

begin

[Mrak]

Код:

1 2 3 4 5

writeln; writeln; writeln; writeln; writeln('                                                      Hello, World!');

[Alegun]

А вот здеся вилка вроде наблюдается - по задумке сабжевой осталось конец с точкой поставить и всё, или раздуем, вопрос: только чем?

З.Ы. Вот отцы-основатели молодцы, топикстартнулись, поржали и свалили

З.Ы.З.Ы. ,kby, что дальше-то делать - продолжать или точку ставить, а?

З.Ы.З.Ы.P.S. Увж.ТС, пробывал запустить ваш коллективный код, но он к сожалению, не работает, компилятору чегойто не хватает. Илиможетчёделаюнетак? Заранее спасибо.

[angvelem]

Код:

1	ReadLn('Ну как, звершим программу?');

[M.A.D.M.A.N.]

Код:

1 2	var   otvet: string;

Код:

1	readln(otvet);

[Mrak]

Код:

1	1: if otvet = 'Да, завершим программу' then GOTO 1;

[YVitaliy]

Пусть метка будет называться L1, L2

Код:

1 2	var ... label L1, L2;

Код:

1 2 3 4 5

L1:  Begin    Writeln('Вы уверены? (Y/N)');    if readkey='y' then GOTO L2;  End;

[angvelem]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

begin L1:   WriteLn('Вы уверены? (Y/N)');   if ReadKey = 'y' then     GoTo L2   else   begin     ClrScr;     GoTo L1;   end;   L2:   WriteLn('Неее, выходить ещё рано!'); end;

[Bargest]

Код:

1

asm

^_^

[M.A.D.M.A.N.]

Код:

1

nop

[angvelem]

Код:

1	lea eax, [eax + ebx * 2]

_____