If Anweisung... Block?

[inherited]

Delphi-Quellcode:

  if ein = 'Profikiller' then pun:=anz*176
  else if ein = 'Objektwache' then pun:=anz*21
  else if ein = 'Guarde' then pun:=anz*388
  else if ein = 'Problemloeser' then pun:=anz*93
  else if ein = 'Bombenleger' then pun:=anz*281
  else pun:=0;
  writeln;
  writeln;
  writeln ('Hier die Gesamtpunktzahl:');
  writeln (pun);

Suchst du das?