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

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

Код:

program HelloWorld;

З.Ы.

[NumLock]

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

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

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

[NumLock]

Код:

uses
  Crt;

с 1 апреля!)

[Alegun]

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

Код:

begin

[Mrak]

Код:

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

[Alegun]

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

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

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

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

[angvelem]

Код:

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

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

Код:

var
  otvet: string;

Код:

readln(otvet);

[Mrak]

Код:

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

[YVitaliy]

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

Код:

var ...
label L1, L2;

Код:

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

[angvelem]

Код:

begin
L1:
  WriteLn('Вы уверены? (Y/N)');
  if ReadKey = 'y' then
    GoTo L2
  else
  begin
    ClrScr;
    GoTo L1;
  end;

L2:
  WriteLn('Неее, выходить ещё рано!');
end;

[Bargest]

Код:

asm

^_^

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

Код:

nop

[angvelem]

Код:

lea eax, [eax + ebx * 2]

_____