Твоя Библия: христианский форум

предлагаю не тормозить и писать программу совместно, я начинаю, вы продолжаете, и так:

unit АСД;

interface

uses
Forms, Dialogs;

private
procedure Go Ahead;

end;

implementation

procedure Hallo;
begin
WriteLn ('Твоя Библия');
Go Ahead;
end;

// код открыт

обкуренный программист?

procedure Книга Притчи > Глава 27 > Стих 9:
begin
WriteLn('Масть и курение радуют сердце; так сладок [всякому] друг сердечным советом своим');
end;

// код открыт

begin
if programmer_is_ok then
WriteLn('А какой смысл? ');
end;