var
  FirstNumber: Integer;
  Numbers: string;
begin
  FirstNumber := 1;

  //case has no fallthrough: cascading
  //if without else does the same
  Numbers := '';
  if FirstNumber <= 1 then
    Numbers := '1';
  if FirstNumber <= 2 then
    Numbers := Numbers + '-2';
  if FirstNumber <= 3 then
    Numbers := Numbers + '-3';
  Numbers := Numbers + ';';
  //numbers is '1-2-3;'

  WriteLn('numbers is ', Numbers);
end.