procedure drink( Type:string;value:integer)
var
i:integer;
is_drink :boolean;
begin
is_drink:=false;
for i:=1 to value do
begin
drinking(type);
end;
if i=value then
is_drink:=true
else
drink:=is_drink;
end;
program MainProg ;
begin
while ( money ) do
begin
if ( start_meeting ) then
begin
drink(beer,0.5);
if (people > 4 ) then
drink(Vodka,int(people*0.2));
else
drink(Beer,2*people );
if drink(vodka,money/price_vodka*people) then
begin
call(taxi);
say(good bye!)
GoToHome(Sleep);
UnNamed(. :D .);
end;
end
end;
end;
end;
Играть »
[КИЕВ: встречи в реале] Автор сообщения: Орленок (15.08.2007 18:23:11)
Тема "КИЕВ: встречи в реале" (t.bbgam.com/c/?tid=40100)
Тема "КИЕВ: встречи в реале" (t.bbgam.com/c/?tid=40100)
