var a : integer;
begin
    for a := 1 to 1 do
        for a := 1 to a do
    end