HugMe!

[backlajanka]

procedure HUGME()
var
you: boolean;

begin
while (you<>dead) do go_to_profile();
go_to_hell();

procedure go_to _profile()
begin
hug_me();
end;

end.

Comments

[shaman_s]

не скомпилит... правельно пишеться boolEan ))

[otshibloblin]

канешно! там даже тела программы нету.
end. есть, а begin - нету.

[otshibloblin]

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

procedure HUGME()
var
you_are_dead: boolean;
begin
while (you_are_dead=false) do hug_me();
go_to_hell();
end;

procedure hug_me()
var
x,y: ibteger;
begin
x:=get_my_position_x();
y:=get_my_position_y();
go_to(x,y);
hug();
end;

begin
HUGME();
end.

[backlajanka]

хоть хагнули ми, умники?

[otshibloblin]

а как жаж!