Nieudolna konstrukcja ifów

Mam pewien problem z konstrukcją kodu. Chciałbym aby działo się coś takiego

If coś1 then skocz do <>
If coś2 then skocz do <>
If coś3 then skocz do <>

Nie mogę wyrzucić ifów bo czasami żaden warunek nie jest spełniony

Połącz warunki operatorem OR.

nie mogę uwierzyć że na to nie wpadłem

A ja mogę.

Może jeszcze taki myk:

procedure SkoczDo1;
begin
WriteLn('Skocz Do 1');
end;
 
procedure SkoczDo2;
begin
WriteLn('Skocz Do 2');
end;
 
procedure SkoczDo3;
begin
WriteLn('Skocz Do 3');
end;
 
const Tb:array[0..2]of record Fun:procedure(); end=((Fun:@SkoczDo1),(Fun:@SkoczDo2),(Fun:@SkoczDo3));
 
for I:=Low(Tb) to High(Tb) do Tb[i].Fun;

void skoczdo1() { printf("skocz do 1\n"); }
void skoczdo2() { printf("skocz do 2\n"); }
void skoczdo3() { printf("skocz do 3\n"); }
struct { void (*fun)(); } Tb[]={&skoczdo1,&skoczdo2,&skoczdo3};

for(int i=0;i<3;++i) Tb[i]();