Congratulation of Elanse!

[im27th]

var

зарплата := Extended;
машина := Integer;
крутая тачка := Integer;
площадь квартиры := Integer;
внешний вид := Integer;
внутренний ум := Integer;
возраст := Integer;
дети := Integer;
жена := Char;
девушка := Char;

begin

крутая тачка := array [самые крутые тачки мира] of Integer;
внешний вид := возраст/2;
внутренний ум := возраст*4;
дети := 1;
девушка := array [самые красивые девушки мира] of Char;

Поздравляю!

Желаю

repeat
зарплата := зарплата + 1 рубль
until будешь доволен;

repeat
машина := машина + random of крутая тачка
until будешь доволен;

repeat
площадь квартиры := площадь квартиры + 1 м2
until будешь доволен;

repeat
дети := дети + 1
until будешь доволен;

repeat
жена := 0;
жена := random of девушка;
until будешь доволен;

end.
хотя это вовсе не end

Я сестемный одменестратор, а не программист, поэтому ошибки сам при компиляции будешь исправлять.