1:
2:
3:
4:
5:
6:
7:
8:

  i:=1;
  i:=i+1;
  for i:=1 to 3 do
  If (a=i) or (b=i) or (c=i) or (d=i) or (e=i) and
     (a=i+1) or (b=i+1) or (c=i+1) or (d=i+1) or (e=i+1) and
     (a=i+2) or (b=i+2) or (c=i+2) or (d=i+2) or (e=i+2) and
     (a=i+3) or (b=i+3) or (c=i+3) or (d=i+3) or (e=i+3) then
     SGUnten.Cells[0,3]:='30';					

1:
2:
3:
4:
5:
6:
7:
8:

  i:=1;
  i:=i+1;
  for i:=1 to 3 do
  If ((a=i) or (b=i) or (c=i) or (d=i) or (e=i)) and
     ((a=i+1) or (b=i+1) or (c=i+1) or (d=i+1) or (e=i+1)) and
     ((a=i+2) or (b=i+2) or (c=i+2) or (d=i+2) or (e=i+2)) and
     ((a=i+3) or (b=i+3) or (c=i+3) or (d=i+3) or (e=i+3)) then
     SGUnten.Cells[0,3]:='30';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

max:=0;
aufsteigendefolge:=0;
for i:=1 to 5 do 
begin
  if würfel[i]+1 = Würfel[i+1] then // der nächste Würfel ist um eins größer
    inc(aufsteigendefolge) // merken, dass die Strasse eins länger ist
  else // die Strasse ist unterbrochen
  begin
    if aufsteigendefolge>max then // hat man eine längere Straße gefunden?
      max:=aufsteigendefolge;
      //und meinetwegen die Zahlen, die die Straße bilden, irgendwie merken, in einem String, einem Zahlenarray, was auch immer
    aufsteigendefolge:=1; // hier fängt dann ja quasi eine neue potentielle Straße an
  end;   
  if max=5 then showmessage('Große Straße');
  if max=4 {oder wars 3?} then showmessage('kleine Straße');
end;