igra ubiyca WoW;
    var
     bidlokod,cool_grafika:boolean;
     money:real_string;
     igroki:nereal;
     sama_igra:boolean;
     i:integer;
procedure na4alo;
begin
     bidlokod:=false;
     cool_grafika:=o4eHb_true;
     money:=dofiga;
end;
begin
for i:=0 to money do
begin
sama_igra:=true;
igroky:=igroky+1000;
end;
end.