var
  Latitude: Integer;
  Location: string;
begin
  Latitude := 42;

  //blocks need begin/end; a single
  //statement per branch does not
  if Latitude = 0 then
  begin
    Location := 'Equator';
  end
  else if Latitude < 0 then
  begin
    Location := 'Southern Hemisphere';
  end
  else
  begin
    Location := 'North Hemisphere';
  end;

  WriteLn(Location);
end.