Напишите программу, которая демонстрирует использование стиля про-граммиста

[zig1]

Помогите написать прогу или хотябы подскажите с чего начать.
Задание:
Напишите программу, которая демонстрирует использование стиля про-граммиста.
Есть на примете одна программа но это не то.
К примеру:

uses Graph;
var
grDriver: integer; {драйвер}
grMode: integer; {графический режим}
grPath: string; {место расположение драйвера}
ErrCode: integer; {результат инициализации граф. режима}
begin
grDriver: VGA; {режим VGA}
grMode: VGAHi; {разрешение 640х480}
grPath: ‘d:\tp\bgi’; {драйвер, файл EGAVGA.BGI, находится в каталоге d:\tp\bgi}
InitGraph (grDriver, grMode, grPath);
ErrCode:=GraphResult;
if ErrCode <>grOK then
begin
writeln (‘Ошибка инициализации графического режим’);
writeln (‘Для завершения работы нажмите <Enter>’);
readln;
Halt (1);
end;
writeln (‘Инициализация графического режима выполнена’);
writeln (‘Для завершения работы нажмите <Enter>’);
readln;
CloseGraph;
end.

[TinMan]

Любая написанная тобой программа будет демонстрировать твой стиль, уважаемый про-граммист. А уж какой он у тебя - это уж, как грится, что выросло, то выросло..

На форуме масса примеров различных стилей..