[ined]

Код:

Procedure HappyNumbers(n:DWORD; var HN:DWORD; var AHN:DWORD);
var i:DWORD;
begin
HN:=0;
AHN:=0;
for i := 1 to n do 
  begin
    if i mod 7 = 0 then inc(HN);
    if i mod 7 = 2 then inc(AHN);
  end;
end;