es bietet sich an eine For-Schleife von 1 bis 16 zu nehmen, mit den eigentlichen Werten aber nur dann zu arbeiten (diese auszugeben?), wenn sie durch 2 ohne Rest teilbar, also gerade sind:
Die Bediingung h mod 2 = 0 im folgenden Quelltextbaustein
Delphi-Quellcode:
for i := 1 to 16 do
begin
if i mod 2 = 0 then
...
end;
muss also erfüllt sein