[eXplorer]

а я так... без цикла если

Код:

var
   i:integer;
   i2:integer;
begin
   i:=strtoint(edit1.text);
   i2:=i+((strtoint(edit2.text) mod 7)-1);
   if i2>7 then 
       i2:=abs(i-(strtoint(edit2.text) mod 7)-1);
   ShowMessage(inttostr(i2));
end;