usr/share/fpcsrc/3.2.0/tests/webtbs/tw16130.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw16130.pp

var
  S :String;
begin
  S := 'H';
  case S of
    'HH','H': WriteLn('1');
  end;
  S := 'HH';
  case S of
    'HH': WriteLn('2');
  end;
  case S of
    'HH','H': WriteLn('3');
  end;
  case S of
    'H','HH': WriteLn('4');
  end;
  S := 'A';
  case S of
    'HH': WriteLn('2');
  end;
  case S of
    'HH','H': WriteLn('3');
  end;
  case S of
    'H','HH': WriteLn('4');
  end;
end.